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ABSTRACT 


This report presents the analyses required to 
design and analyze a direct space condenser-radi- 
ator of general geometry utilizing any working 
fluid including a combination of a condensable 
vapor and noncondensable gas. These analyses are 
then reduced to a computer-usable form and a series 
of five computer programs (in Fortran IV ) capable 
of designing and analyzing these radiators are 
described. Lastly, the instructions for the 
operation of these computer programs are deline- 
ated. 

These computer programs consider such items as : 
flat plate, triform, cruciform, cylindrical, and 
conical panel configurations; operation in a 
variable gravitational field (including zero g); 
automatic bypass and segmentation to control 
outlet temperature; fixed inventory or pressure 
regulated condensers; non-uniform sink temperature; 
and single and parallel tube flow stability. 
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1.0 INTRODUCTION 


The design of extended surface rejection of waste heat from space vehicles lends 
itself readily to optimization by computer techniques. This is a result of the 
radiator weight (the parameter normally minimized within various constraints) 
being a function of the number of tubes, tube diameter, tube length, and fin 
width/ thickne s s and the interaction of these factors for a given design condition. 
Furthermore, in many cases, the weight of these radiators is a significant 
fraction of a total vehicle weight. Consequently, many computer programs have 
been conceived for the purpose of designing these radiators in an effort to 
minimize their weight. 


A problem of size and complexity results, however, when one attempts to devise 
a single computer program to satisfy the requirements of all systems in need of 
a means of rejecting waste heat in space. Figure 1, as an example, groups some 
of the he at -reject ion- requiring systems according to temperature level and heat 
rejection mode. It is obvious that a single computer program applicable to even 
the small number of types shown in Figure 1 would be unwieldy. As a result, the 
computer programs developed to date are limited to a specific type or types of 
systems based on the need of the sponsor. As examples, References 1, 2 and 3 
consider a 0°R sink temperature, which, for the purpose of the program (high 
temperature liquid metal Rankine cycle power system) , is acceptable but results 
in large error when applied to the systems radiating at lower temperatures to 
a non-zero sink. Some programs (Reference 1 and 3 ) are limited to the consider- 
ation of certain fluids whose properties are built into the program. Others 
consider only single phase fluids, non-isothermal rejection of heat (Reference 
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expended in the computer analysis for off -design conditions of a previously 
defined radiator. 

Early in 1965, the Manned Spacecraft Center of the National Aeronautics and Space 
Administration had a need for a computer program or programs to design and 
anal yze direct radiating condensers for (a) high and low temperature Rankine 
cycle power systems, (b) refrigeration cycles for environmental control systems, 
and (c) fuel cell power systems. 

Category (a) had been extensively treated in the high temperature area in the 
literature, but the low temperature area and category (b) was somewhat less 
completely covered, and no treatment of category (c) was found. In addition, 
very little consideration had been given to the off-design performance of 
radiators, most of these being limited to a specific system or radiator design. 

As a result, in June 1965, NASA/MSC awarded a contract to the Equipment Labora- 
tories Division of TRW to perform the analyses and write and debug the program(s) 
necessary to satisfy this need. 
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After evaluating the differences and similarities in the requirements of (a), 

(b) and (c) above, it was decided to separate the problem into five programs as 
follows : 

I - Fuel Cell Design Program 

II - Isothermal Design Program 

III - Primary/Secondary Design Program 

IV - Fuel Cell Performance Analysis Program 

V - Isothermal Performance Analysis Program 

A detailed description of the operation of each of these programs can be found 
in Section 4.0. 

In addition to the normal capabilities of considering various tube numbers, 
diameters and lengths and fin widths and thicknesses, these programs consider: 
a) non-constant sink temperature such as might be seen by a cylindrical radiator 
in a lunar orbit, b) effects of gravity environment on flow stability, c) auto- 
matic segmentation or bypass to control condenser outlet temperature, d) constant 
liquid inventory or constant pressure regulation in the condenser, and e) a wide 
range of tube/fin and panel configurations. 
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2.0 DISCUSSION 

The computer programs developed under this contract are applicable to direct 
condensing fin and tube radiators in a space environment. They consider the 
desuperheating of the vapor, condensing of the vapor and the subcooling of the 
condensate. In the special case of non- isothermal condensation of vater vapor 
in hydrogen gas (fuel cell), the effect of desuperheating, condensing, and 
diffusion are considered. 

The systems to which the design and analyses are applicable are: (a) high and 

low temperature Rankine cycle electrical power systems, (b) active environmental 
control systems , and (c) fuel cell power systems all employing direct condenser 
radiators. Schematics of these systems are shown in Figure 2. 

Much similarity exists in systems (a) and (b), but system (c) req uir es special 
treatment since the presence, in large quantity, of the noncondensable hydrogen 
and the resultant incomplete condensing of the input vapor requires a unique 
series of considerations. As a result, the environmental and Rankine systems 
have been treated identically in the programs and separate from the fuel cell, 
or sometimes referred to herein as the non- isothermal system. 

xne primary/ secondary concept is a special case of the environment al / Rankine 
case capable of operation in high ”g" fields. Basically, it is a series 
combination of a parallel and a single tube direct radiator-condenser which 
combines the lightness of the former with the stability of the latter. This 
concept was conceived of, developed, and successfully operated with condensate 
flow in opposition to 1 g on the Sunflower I contract between the Lewis Research 
Center of the National Aeronautics and Space Administration and TRW. The 
theoretical background of this approach is contained in Section 3 = 3 — - 
Annendix B-5. 

2.1 Configurations 

Three types of tube/fin construction are considered: central fin, open sandwich, 

and closed sandwich as shown below. 


Central Fin 



Open Sandwich 



Closed Sandwich 
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The central fin construction is the classical geometry considered in most 
analytical exercises. Prom a fabrication standpoint, however, it is less 
practical than either of the other two geometries. An alternate fabrication 
of this geometry is shown below. 



braze or weld 




Alternate Central Fin Construction 


This has the disadvantage of requiring the same material be used for tubes 
and fins at approximately the same thickness but is more easily fabricated. 


The open sandwich construction is the most easily fabricated lending itself 
to tube- to- fin furnace brazing, torch brazing, or welding, depending on the 
tube and fin materials, strength requirements, and/or furance capacity. Its 
use in a conical or cylindrical panel configuration with the tubes on the 
inside makes maximum use of the meteoroid protection effect of the fins. 


The closed sandwich has the advantages of strength and the meteoroid protection 
afforded by the fin location for any panel configuration but is somewhat more 
difficult to fabricate than the open sandwich. 

Although other variations in tube/fin geometry exist, most notably a closed 
sandwich honeycomb, the programs contained herein are necessarily limited to 
the geometries discussed. 


Five panel configurations are considered in conjunction with the three tube/fin 
types: flat plate, triform, cruciform, cylinder (or segnent) and cone ( segment 
and/or f rust rum). These are sketched below. 




Cylinder Cone 


k 
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The panel choice, of course. Is determined by the envelope available. In 
general, the flat plate will be the lightest for a given heat rejection but 
will require greater envelope dimensions. Conversely, the cone and cylinder 
may be heavier but will fit into a smaller envelope. The triform and cruciform 
fall between the flat plate and cone/ cylinder with regard to weight and 
envelope size. In short, it can be said that the optimum panel configuration 
can be determined only in the specific case. 

Figure 3 shows which of these panel configurations are considered In each 
program, (denoted with an X). 

In cylindrical and conical panels using closed sandwich tube/fin geometry, the 
inner fin thickness is specified by the designer in a.n programs and is not 
considered to effect or affect heat transfer. With the same panel configurations 
employing an open sandwich, the tubes are always assumed to be on the "inside". 

A single inlet and single outlet are assumed in all panel configurations, and in 
all cases, the three tube/fin configurations may be considered. 

2.2 Operating Environment 

Any vehicle traveling outside the earth ; s atmosphere will encounter conditions 
unlike those on the ground. These conditions are fairly well understood and 
include: exposure to meteoroids, loss of convection- type external heat 

rejection as a result of the vacuum environment, low or zero "g" acceleration 
levels, and exposure to high energy electrically charged particles. The last 
characteristic is not- considered in the computer programs, but the others are 
handled in the manner discussed in the following paragraphs. 


2.2.1 Meteoroid ProtwYM on 


Meteoroids of varying size, density and velocity are one of the hazards 
encountered by space vehicles. If the integrity of a particular component would 
be d imin ished or lost due to a puncture resulting from a collision with one of 
these meteoroids, suitable precautions must be taken. This is precisely the 
cane with condenser-radiator tubes. 

Meteoroids, of ccmetary and asteroidal origin, travel in eccentric orbits 
within our solar system. About 20 % of those near the earth are members of a 
meteoroid shower, whose behavior can be predicted and, consequently, they can 
be avoided. The remaining dO%, however, are sporadic in nature and must be 
treated on a probability basis. Meteoroid protection requires the determination 
of l) the frequency of the meteoroids, 2) the mass, density and velocity of the 
meteoroids, and 3) the penetrating power assuming the mass, density and velocity 
are known. Many earth observations and satellite experiments have been performed 
to determine (l) and (2), but most have had significant limitations of time, 
area or sensitivity, i.e., ability to count only meteoroids above a certain 
minimum size. Many earthbound experiments have investigated (3) but have been 
limited in significance because meteoric velocities (28 to 40 km/ sec) have not 
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"been attainable. Despite these shortcomings, some assessment of the problem 
must be made before intelligent designs of future systems can be undertaken. 
Reference 5 appears to be the best assessment to date. 

After surveying available data and experimental results. Reference 5 concludes 



where 

t a = thickness of required armor, in. 

F = 1.0 

a = 1.75J correction for a finite target, i.e., the target that will be 
penetrated by a projectile is 1.75 times the depth of penetration 
in an infinitely thick target (due to spalling). 

Pp = meteoroid dens it y ? 0.44 gm/crn^ 

P a = armor density, lb/ft^ 

Vp = meteoroid velocity, 98*400 ft/ sec 

c = sonic velocity in armor, ft/sec or 12 

Ef. = modulus of elasticity of armor, lb/in^ 

g c = gravitational constant, 32.2 ft/ sec 2 

oc = 5*3 x 10" ^ ft 2 -day (defines f lux/ mass 

£= 1-34 

Ay = outside area of vulnerable surface: tubes, headers, etc. in a 

radiator 

'X = exposure time, days 

P(o) = < ^- es l re< i probability of no penetration by a meteoroid in ^ days 


v\ Sc 

relationship of meteoroids) 


Equation (l) is included in the design programs to calculate the necessary 
meteoroid armor. This calculation can be bypassed, if desired, by specifying 
a tube wall thickness in the input data. 

In the programs, the headers are assumed to be protected from meteoroid impact 
by structure and their area is not considered vulnerable. The use of bumper-type 
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to 

I 


meteoroid protection, i.e., lesser amounts of protection separated frctn the 
vulnerable area, is not considered in the programs since gross uncertainties 
currently exist in this approach. 

2*2.2 Vacuum Environment 

The high vacuum environment of space has an effect on the long-term surface 
characteristics of the exposed areas. But of even more significance to a 
space condenser-radiator is the loss of external convection. Heat rejection 
becomes a matter of radiation to the environment of space. This thermal 
environment is comprised of planets emitting infra-red and reflecting solar 
energy and the sun emitting direct solar energy. The level of incident 
radiation from each of these sources Is a function of the radiator's location 
and attitude in space. In each design program, the ma gnit ude of the radiation 
and the absorptivity of the radiator surface to the radiation can be specified 
in the input data. In lieu of these radiation level and absorptivity combina- 
tions, a sink temperature may be specified (see paragraph 3.1.2). Furthermore, 
in the perfor manc e analysis programs, up to twelve different levels of incident 
energy may be considered simultaneously (such as that which may be seen by a 
cylindrical radiator). 

In all cases the cooputer programs add this energy absorbed from the environment 
to the heat rejection requirement of the radiator. 

2.2.3 Acceleration Environment 

Almost all ground-based co n d en sers rely on gravitational attraction to transport 
the condensate to the desired location. In the case of Rankine rwio een+/r»i 
power stations, gravity also supplies a portion of the nunro suction 
-lh space travel, however, the majority of any Journey will be spent in zero or 
near-zero gravity, and, consequently, some other means of condensate transport 
and pump inlet pressure supply must be found. 

To solve the first problem, the vapor is condensed in small tubes such that the 
vapor velocity is great enough to produce a drag on the condensate and drive 
all the liquid to the condenser outlet. This problem is magnified if orbital 
transfer or mid-course correction maneuvers cause accelerations in directions 
which require the vapor to move the condensate "uphill". In this event, the 
vapor drag must be even higher to overcome the external body forces. In the 
computer programs, the vapor velocity necessary to achieve not only condensate 
transport, but multiple tube stability, is observed as a minimum. Obese 
considerations are discussed in detail in paragraph 3.2.4. 

The problem of adequate NPSH in space Rankine cycles is normally solved by 
designing the condenser to operate at a pressure level which will maintain the 
pump prime. In same cases, this pressure level is above that desired for system 
optimization. Obis pump inlet pressure is fixed in the design programs by the 
user when he specifies the condenser inlet pressure and condenser pressure drop 
in the inputs. 
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3.0 ANALYSIS 

In designing or analyzing the performance of extended surface space radiator 
condensers, two major criteria have to he dealt with and satisfied. They are 
thermal behavior (heat transfer and thermodynamics) and fluid dynamic behavior 
(pressure drop and flow stability). 

The general approach taken in the design programs is to determine applicable 
combinations of geometry (condensing length, diameter, number of tubes, etc.) 
according to fluid dynamic criteria and then, based on the heat rejection 
requirement, determine suitable finning for each combination. In the performance 
analysis programs, the previously-defined geometry, environment, and flow rate 
are used to determine the operating conditions and behavior. In both types of 
programs, the equations governing heat transfer and fluid dynamics are 
identical; only their sequence is varied depending on the known quantities. 

3*1 Heat Transfer and Thermodynamics 

The mechanics of heat rejection in a space radiator involves convection from the 
fluid to the tube wall, conduction from the tube to the fins, and radiation 
from the tubes and fins to the environment. These three modes of heat transfer 
are discussed in Sections 3*1. 3> 3*1.1 and 3*1.2, respectively. 

3.1.1 Nodal Point Method 

General analytical expressions relating heat flows, temperatures and geometries 
of space radiators have been derived in the literature (i.e., references 6, 7, 

8 and 9). These expressions, however, are usually in the form of differential 
equations requiring numerical integration. Due to this reason and the 
generalities in geometry and flow conditions to be covered by these programs, 
a nodal point method was employed. 

Symmetry allowed one-half of an externally finned tube to be considered. This 
geometry was further subdivided into a series of nodes, the fins having four 
nodal points per section and the tube two. In addition, the isothermal condenser 
was assumed to have one section along the condensing length and two along the 
subcooler length and the non- isothermal (fuel cell) radiator, three along the 
condensing length. The nodal point locations for the three fin-tube configura- 
tions are shown in Figure 4. 

For a steady state application, the summation of all heat flows by conduction, 
radiation, and/or convection into a node is equal to zero. By summing the heat 
flows about each node, a set of nonlinear simultaneous equations relating 
geometry and temperature is obtained. A typical set of equations for a single 
fin nodal point is shown in Appendix A-l. To assure a fast converging solution 
of these simultaneous nonlinear equations, a special computer subroutine was 
devised. 

3*1.2 Radiation Heat Transfer 

The net radiative heat exchanged between two energy sources is a function of 


8 


TRW KQWPMMNT LABORATOMKS 


their temperatures, surface properties, the spectral distribution of the 
energies, and the "viev factors" between the two sources. The sources of 
radiation encountered by space radiators will be the sun (solar), planets 
(albedo and infrared) and on-board sources (infrared). Since absorptivity 
has a strong spectral dependence and the above sources show intensity peaks 
at at lest two widely different wave lengths (visible and infrared ranges), 
it was decided to use two values for surface absorptivities: solar, or high 

temperature, absorptivity values for solar and planet albedo radiation and 
thermal, or low temperature , absorptivity values for planet thermal and on-board 
radiation. The radiator surfaces are considered gray within each of the two 
spectral regions and, hence, the surface emissivity values will be equal to 
the thermal absorptivity values. The radiation emitted from the radiator is 
considered to be diffuse; i.e., the magnitude is constant for all angles. 
Similarly, no angular dependence is assumed for the solar and thermal 
absorptivities. 

Since the tube and fins of space radiator-condensers are not continuous, flat 
surfaces and certain panel configuration cause panels of the same radiator to 
"see" each other, geometric configuration factors and energy reflections have 
to be investigated. 

View factors from incremental fin areas (nodal points, see Section 3»l*l) to 
adjacent tubes are derived for all three fin-tube configurations in Appendix A- 2. 
Also, for the closed sandwich configuration (see Figure 4), view factors from 
an Incremental fin nodal point to opposite fin nodal points are derived. The 
view factors used are actually those from the mid-point of the nodal points 
to tubes and opposite fin nodal points; when these were compared with the 
integrated view factor from the entire nodal point, it was found that the first 
ana simpler version could be used with negligible error. 

A further simplification was made in that no radiant energy exchange between fins 
and tubes was considered, but rather the tubes and fins merely blocked each 
other's view to space. In the configurations used in this analysis, the 
tube/fin view factor value decreases as temperature difference increases (moving 
along the fin perpendicular to and away from the tube) and the product of view 
factor and difference of the fourth power of temperatures for typical radiator- 
condensers in calculating net radiant energy exchange between fin and tube 
results in negligible values compared to heat conduction and radiation to space. 
For similar reasons, fln-to-fln net radiant energy exchange for the closed 
sandwich configuration was also neglected. Examples of the errors Involved in 
these simplifications are shown in Appendix A-2. 

Lastly, reflective tube/fin interchange (for normal geometry and surface proper- 
ties) was shown to have insignificant effects on total heat transfer in Reference 
27. Accordingly, this effect was also neglected. 

Based on the above considerations and using the derived fin-to-tube view factors 
in conjunction with view factor algebra, a set of view factors of fin nodal 
points to space was derived. Figures A-2 and A- 3 (Appendix A-2) show the derived 
factors for each fin segment in generalized terms. Also included are the 
tube-to- space view factors. 
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Figure A-4 shows local view factor from panels of triform and cruciform 
configurations to space. As can be seen from the figure, integrated values 
for each case of .866 and .707, respectively, derived in Appendix A-3 can be 
used as constants over the complete panel surfaces without introduction of 
sizable overall error. 

For this analysis, all conical and cylindrical radiators are assumed to have 
blocked ends and negligible internal radiant interchange and headers are 
assumed to be located in such a way as to result in negligible radiant energy 
loss. 

In writing the net radiant exchange between energy sources and radiator 
segments, an equivalent sink temperature is used. (Physically, the equivalent 
sink temperature is that temperature a surface would attain were it in thermal 
equilibrium with the environment with no other heat input to the surface except 
from the environment.) This sink temperature can either be specified or 
derived based on incident fluxes and the absorptivities of the radiator surfaces 
to these fluxes. The equation for effective sink temperature is derived as 
follows (see Nomenclature section for explanation of symbols): 

9 = F sp <re t 4 -f 8p [®o 8 (q. + q.) + oc t 


where Q = heat exchanged per unit area and time. 


The form using an equivalent sink temperature, T g , would be: 
« ■ F sp “■ £ [t 4 - T s 4 ] 

F sp 0-8 T S U - F sp t 00 . <«b + «a> + “'t «t] 


Since 


= oc: 


T - ( Ju 

1 ^ 




OCb 

oc, 


(Q s + Q a ) + Qfc 


lA 


( 2 ) 


Equation (2) is used in the programs to determine the sink temperature ( s) in 
the event the incident heat fluxes are specified. 


3.1.3 Condens ing Coef f ic lent s 


Basically, two mechanisms can occur when vapors condense: dropwise or filmwise 

condensation. Fluid type and/or surface material and conditions primarily 
determine the type of condensation. From the types of fluids and compatible 
materials considered in this study, only mercury will be considered non-wetting, 
i.e., condense in a dropwise manner. All other fluids are thought of as 
wetting with resulting filmwise condensation. 
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Since the presence of a noncondensable gas in condensation of vapors effects 
the condensation coefficient, special consideration in that area has to be 
given to a fuel-cell direct radiator-condenser* 

3* 1*3.1 Fuel-Cell 

When a mixture of noncondensable gas and condensable vapor comes in contact 
vith a surface colder than the dev point of the mixture, condensation will 
occur* For f ilm - type condensation, a thin liquid film of condensate will 
form on the surface and a gas and vapor film will separate the mA-tn body of 
the mixture and the condensate layer* The gas and vapor film will have a lower 
vapor concentration than the main body (reference 10). Because of the partial 
pressure difference of the vapor between the main body and the liquid interface, 
the vapor diffuses through the gas film to condense at the interface. Thus, 
sensible heat of the gas and vapor and latent heat of the vapor are transferred 
through the condensate layer but only sensible heat passes through the gas 
layer. The condensation rate is, therefore, governed by the law of diffusion 
of vapor through a f ilm of noncondensable gas while sensible mixture cooling is 
governed by usual modes of heat transfer, i.e., conduction and convection. 

An analysis of a combined heat transfer coefficient for a fuel cell direct 
radiator-condenser with the noncondensable gas being hydrogen and the condensable 
vapor being steam was performed. In this analysis the sensible heat transfer 
coefficient and the ratio of latent heat transfer coefficient to the sensible 
heat transfer coefficient were determined. The combined coefficient can then 
be expressed 


^latent \ 
^sensible I 


This approach was taken since h]_ a -t en t is difficult to determine independently, 
whereas h Ben sible is comparatively straightforward and the ratio hi a t en t/ h sensible 
can be obtained realizing the mechanism for both are coupled by certain 
physical laws as discussed above. The results of the analysis showed that 
h latent/ h sensible >» 1 and the resulting h ccnibined was high enough that the 
resistance to heat flow would be small (for the range of conditions expected) 
compared to the radiation resistance. As a result, a constant h^omhinpH of 
1000 Btu/hr-ft2-op was used for the hydrogen water-vapor mixture fuel cell 
direct radiator-condenser. The analysis is contained in Appendix A-k. 

3 . 1 . 3 * 2 Liquid Non-Metals 

The formation of a condensate film on a surface whose temperature is below the 
saturation temperature of the vapor creates a heat flow resistance through 
which the latent heat of the vapor must pass. The overall resistance can be 
considered to consist basically of a resistance at the liquid- vapor interface 
and a resistance due to the condensate film. For common type fluids, Prandtl 
No. > 0.5, the liquid vapor interface resistance is negligible compared to the 
resistance due to the condensate film (Reference 10). The liquid non-metals 
considered in this analysis fall into this category. 
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Expressions for condensing coefficients applicable to fluids with a Prandtl 
No. > 0.5 have been derived by Nusselt (Reference ll) for laminar condensate 
flow and expanded by Kirkbride (Reference 12) for turbulent condensate flow. 
Neither expression accounts for the case in which the velocity of the uncondensed 
vapor is substantial compared with the velocity of the condensate at the 
vapor-condensate interface. Frictional vapor drag on the film affects the 
film's velocity and thickness and, therefore, the heat transfer coefficient. 
Experimental work by Carpenter and Colburn (Reference 13 ) shows that in the 
latter case coefficients ten times higher than those obtained using Nusselt' s 
and Kirkbride 's expressions were measured. In the above reference. Carpenter 
and Colburn derive an expression, based on data for condensation of a saturated 
vapor flowing downward in a water-cooled tube at high velocities, using the 
shear stress, *t? v , at the vapor-liquid interface but basing this stress on 
the equation for dry tubes: 


X 


w Sc 



Plotting gjj vs. 


^c 

*c e - 1/2 


h c = .065 


' c p Po f 

* A A. 


based on experimental results gives: 


1/2 


GL 


and in terms of vapor velocity: 


h c = .065 

- 


°p /°C ^V ^C f 

2 A 


] 


1/2 


U 


(3) 


where U y = vapor velocity. 

This equation should not be used for fluids with very low Prandtl numbers 
(liquid metals) or very high Prandtl numbers (viscous oils, etc.). In using 
the above expression, it should be remembered that two simplifying assumptions 
were made: first, the friction factor is based on dry pipe data and, second, 

an average value of vapor velocity is employed. 

3. 1.3. 3 Liquid Metals 

Although experiments have substantially borne out the theoretical predictions 
for condensing coefficients of common fluids (Prandtl No. ^ 0.5 )> the same 
cannot be said for liquid metals. The small amount of data from various 
investigators on condensation of metallic vapors all have one thing in common: 
the values for condensing coefficients obtained from experiments is up to an 
order of magnitude lower than the values predicted by Nusselt 's, Kirkbride 's 
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and Carpenter and Colburn 1 s expressions. As References 11 and 14 point out, 
the cause of this discrepancy is that the governing resistance to heat flow 
from the vapor core to the tube wall must be at the liquid-vapor interface and 
is not due to the film thickness. The latter assumption was used by Nusselt, 
Kirkbride and Carpenter and Colburn. 

Rohsenow (reference 11) uses the condensation coefficient, CT" , (fraction of 
molecules striking the surface which actually do condense) to develop 
expressions for two Nusselt numbers, one based on the vapor to film tenper- 
ature drop and the other based on the film to tube wall temperature drop. 

These expressions are complex and would require an iterative solution technique 
if used with a nodal point method. Values for O’ for metallic vapors are scarce 
and those reported from separate sources show large variations for the same 
vapor. 

Since condensing coefficients for metallic vapors have relatively high values, 
the temperature drop from the vapor core to the tube wall is «mA.n when compared 
to the operating temperature level. Hence, a sizable percentage change in the 
condensing coefficient will have a negligible overall effect when applied to 
a radiator-condenser aus considered in this analysis. Based on the above findings 
and assumption, constant values, rather than analytical or empirical expressions, 
for liquid metal condensing coefficients were used. 

Based on experimental data in references 11 and 14, and considering typical 
expected operating ranges, a constant value of 5000 Btu/hr-ft2-°p for the 
condensing coefficient of mercury vapor was chosen. Similarly, from References 
n nTiri ~i ii oArie+«m+ t mi Wn for the condensing coefficient 

of potassium and rubidium vapors were chosen. These constants were used in 
the programs for the liquid metals, but equation (3) was used for liquid 
non-metals. 

3*1.4 Subcooler Convection Coefficient 

In condensers, the removal of sensible heat from the liquid condensate is termed 
subcooling. In multiple tube radiator-condensers where complete condensation 
of a single fluid occurs, this subcooling usually takes place in an extension of 
the condensing tube. 

As expected, the mode of heat transfer and, therefore, the value for the heat 
transfer coefficient, depend largely on whether the flow of the condensate is 
laminar or turbulent. For fully developed laminar flow in pipes, the mode of 
heat transfer is conductive in nature and the dimensionless ratio (hD/k), or 
Nusselt number, takes on a constant value if longitudinal conduction is 
insignificant. 

In fully developed turbulent flow, the mode of heat transfer is both conductive 
(in the laminar sublayer) and convective (in the buffer layer and turbulent 
core). The heat transfer coefficient is then definitely a function of the 
Reynolds number (boundary layer determination) and Prandtl number (ratio of 
molecular transfer of momentum to molecular transfer of heat). 
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A certain length of tubing is needed before the laminar and turbulent boundary 
layers build up to a constant thickness, i.e., before fully developed laminar 
or turbulent flow is reached. Since the boundary layers are thinner in this 
entrance region, the Nusselt numbers are higher than in the fully developed 
case. The build-up of these boundary layers is strictly a function of fluid 
dynamics (for constant fluid properties) and is not influenced by heat transfer. 
Eckert (Reference 15) shows that, for smooth entry, circular pipes, the 
entrance length, L e , required to reach fully developed laminar flow is a 
function of the Reynolds number. Re, and tube diameter, D. This function can 
be expressed as L g = .0288 D Re. In the turbulent case, the boundary layer 
thickness increases faster and, therefore, a shorter entrance region results. 

In a radiator condenser where the liquid flow starts from a highly active (due 
to impinging condensate) liquid -vapor interface, this entrance effect is assumed 
to have only slight effects. 

3.1.4. 1 Liquid Non-Metals 

For laminar flow (Reynolds number, (Re) <2300) of liquids flowing in pipes, the 
heat transfer coefficient is independent of the Prandtl number if longitudinal 
conduction can be neglected. This assumption is sound for liquid non-metals 
considered in this analysis. From Reference 15, a constant average Nusselt 
number, hD/k, equal to 5*0 was chosen for laminar flow in a subcooler. 

For turbulent flow (Re > 2300), the effect of the Prandtl number on the heat 
transfer coefficient warrants a separate investigation for non-metallic liquids 
(Pr "> l) from that for metallic liquids (Pr << l). For liquid non-metals the 
molecular transfer of momentum is more intense than the molecular transfer of 
heat. The thickness of the thermal boundary layer is less than the thickness 
of the dynamic layer, and as a result, the turbulent transfer of heat in the 
vicinity of the viscous sublayer becomes important. 

Reference 16 gives an enpirical expression for the Nusselt number derived by 
Dittus and Boelter for cooling of fluids in turbulent motion (Re 2300) 

Nu = = .023 (Re)* 8 (Pr)* 3 (4) 

k 


and the fluid properties are determined at the "cup" temperature. The use of 
this equation results in some inaccuracy for Reynolds numbers from 2300 through 
6000 (transition region). For this region H. Hausen (quoted in Reference 17) 
derived an expression for an average Nusselt number: 


Nu = .116 

J” (Re) 2 / 3 - 125 1 (P 

r) 1 ^ [i./f 

) s/3 l(-£)- lh 


L. J 

L 

> J '■A,' 


where = absolute fluid viscosity evaluated at the bulk fluid temperature 

~ absolute fluid viscosity evaluated at the tube wall temperature. 
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The ev a l u ation of at the wall temperature and the dimension "L" (length from 
tube inlet) make this expression difficult to apply to the nodal point method 
employed in this analysis. As a result, the simpler Dittus-Boelter equation (4) 
was employed with only small sacrifice in accuracy in the 2300-6000 Reynolds 
number range. 

3. 1.4.2 Liquid Metals 

Experimental results (Reference 18) indicate that the Nusselt number does not 
reach a constant value for laminar flow of liquid metals as it did for liquid 
non-metals. The main reason for this is assumed to be the fact that longi- 
tudinal conduction is coup arable to radial conduction. 

For turbulent flow for fluids with Prandtl No. 1.0, such as liquid metals, 
the molecular transfer of heat is considerably more intense than the molecular 
transfer of momentum and the thickness of the the rmal boundary layer is greater 
than the thickness of the dynamic layer. In liquid metals heat is also 
transferred by the movement of electrons, which increases the inf luence of the 
transfer due to molecular activity. This electron contribution may be greater 
than the turbulent contribution (Reference 16). 

The above reasons indicate that a different expression( s ) is necessary to 
describe Nusselt number variation. 

One of the best accumulation and analysis of experimental data on heat transfer 
coefficients for liquid metals is presented in Reference 19. Figure 42 of 
that reference shows the results of fifteen investigators and groups of 
investigators plotted as Nu versus the Peclet number, Pe. The following 
empirical equation was derived from this plot by the authors of Reference 19. 

Tra.. _ £r\r- ^ / c \ 

AIM — • OL.V X C I K I 


where 

Pe - Peclet number of the fluid = (Re)(Pr). 

Although the authors state that the experimental evidence was insufficient to 
serve as a basis for any conclusion concerning liquid metal heat transfer in 
the laminar or transition flow region, the above equation shows fair agreement 
with the small amount of data available for those flow regimes. In the 
programs. Equation (5) is used for liquid metals for laminar, transition and 
turbulent flow. 

3*1.5 Fuel Cell Radiator Heat Loss 

When a mixture of vapors is forced through a tube whose surface temperature is 
below the dew point of one of the components, condensation of that component 
will occur. In the case under consideration, one of the gases (hydrogen) has 
a much lower saturation temperature than the other (water vapor); and, as such, 
the former is considered a noncondensable gas and the latter a condensable 
vapor. The condensation of the vapor causes a decrease in its partial pressure 
along the tube which results in a corresponding decrease in its dew point. 

If the total pressure of the mixture is high compared with the frictional 
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pres stir e drop along the tube, the effect of this pressure drop on the 
saturation temperature can be neglected. 


The heat loss of the mixture is composed of the sensible heat loss of the 
noncondensable gas, the sensible heat loss of the vapor (including superheat), 
the sensible heat loss of the condensate and the latent heat of the vapor-to- 
liquid phase change. Examining a small section of a tube in which the mixture 
is flowing: 


hi,h 2 ,hf,hf v 

Wfj. 

T, T* 



hi+ dh 1 ,h 2 + dh 2 ,hf + dh^ ,h f . v +dhf^ 
m-]_ + dm-p mg, m^ + dm^ 

T + dT, T' + dT’ 


where the symbols : 

T = saturation temperature 
T' = superheat temperature 

and subscripts: 

1 = condensable vapor (steam) 

2 = noncondensable gas (hydrogen) 
f = condensate (water) 

results in the following energy balance: 

h l m l + h 2 m 2 + kfj + dq = (m^ + dmjJ (h^ + dh^) 

+ nig (hg + dhg) + (m^ + dm^) (h^ + dlx^) 

and dq = nighg + m 1 dh 1 + h-^dn^ + dhp + h f ^ dra^ 


By assuming both gas and vapor follow the perfect gas law and by employing 
Dalton's Law of partial pressures and Clapeyron's equation, the above energy 


balance can be written as: 

r 


dq = 


“ 2 C 2 f 


+ m. 


l °l ^1 


P 


m 2 


R2 

^1 ( ?m 

API 


dbfvi \ 

- 1 ) _W T ) 


+ hf . 


vi 


( x -^) 


Sat 


( 6 ) 


dT 
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where P and P g are factors accounting for the sensible heat loss of the 
noncondensable gas and vapor mixture due to superheated inlet conditions (see 
Appendix A-5). 

Sy plotting temperature and total pressure dependent portions of equation (6) 
for a hydrogen/water vapor mixture and curve fitting, the following expression 
was generated: 

q = J^acj, ^2*^^ j (Tln aat - Tout) 

♦ 1770 P m - 1 - 112 (e^T _ e .0237 S^b) (7) 

where: q is in Btu/hr 

m is in lb/mln 
c is in Btu/lb-°F 
T is in °R 
P is in psia 

Equation (7) was then compared with a psychrcmetric chart for Hg-HoO at 60 psia 
total pressure (intended operating pressure). An average error of 15$ in the 
second term of equation (7) was noted for specific humidities from 0.5 to 3.0. 
This error is the result of smal 1 deviations of the components from perfect 
gas behavior and the m ag ni fication of this error caused by the steep slope of 
the saturation curve around the operating point. Consequently, the second 
term of equation (7) is multiplied by 1.15 in the programs to improve accuracy 
in the primary operating range. 

This modified equation is directly substituted into the fluid nodal point heat 
summation equations where and T^ are the fluid boundary saturation 
temperatures of the section of tube under consideration. 

The complete derivation of the equations presented in this section is contained 
in Appendix A-5. 

3.2 Fluid Dynamics 

3.2.1 Film Stability 

The ability to accurately design and/or analyze a direct condenser-radiator 
requires insight into two-phase pressure drop phenomena which, in turn, requires 
a method(s) of flow regime prediction. As an example, consider the drawing 
shown on the following page: 
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vapor 


annular " transition . , spray annular , . ■' ■ 
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condensate 


This sketch shows all the flow regimes likely to occur in a through-flow space 
radiator-condenser. Intuitively, one can say that the pressure drop correlations 
for the various flow regimes are not identical and analysis and testing hears 
this out. The assumption of a single correlation may lead to gross errors in 
pressure drop prediction. It is, therefore, necessary to not only analyze 
methods for predicting two-phase pressure drop, but prior to this, to investigate 
methods of flow regime determination. Involved in this latter technology is the 
consideration of film stability since it is the instability of the film that 
trips the flow from pure annular to transition flow, and the growth rate of the 
waves which determines the transition length to fog flow. 

Basically, two types of film instabilities may affect the performance of space 
condenser-radiators. The first is known as the Kelvin-Helmholtz (inertia and 
surface tension) instability and the second is the Schlichting-Tollmien (inertia 
and viscosity) instability. Both are characterized by the breakup of a wall -bound 
film and transition from annular to spray annular and/or fog flow (dispersed 
condensate). The present state-of-the-art is not sufficient to predict the 
point of neutral stability (start of transition flow) resulting from a combined 
effect of both of the above instabilities. Consequently, it will be assumed 
that each of the film instabilities act, and can be investigated, separately. 

First, examine the Kelvin-Helmholtz phenomena. Reference 20 shows that the 
flow of a wall-bound film reaches neutral stability at a film Weber number defined 

a8 = "jtA £ 

SsT 

of 3*0. The film Weber number can also be expressed as 

w f-( r) 3 w vo x( 1 - x) (£f) 1/2 (8) 

From equation (8) it can be seen that for certain values of initial vapor Weber 
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number, (W„ ), neutral stability will not be achieved for any value of quality, 
(X), and this type of instability will not occur. 

For the Schlichting-Tollmien instability to cause a wall -bound fluid to reach 
neutral stability. Reference 20 shows that the film Reynold's number defined as 

R-- *Pt P 2 

At 

has to reach a value of 200. Hie film Reynold's n umb er can also be expressed 
as: 

R f - ( >Vo h - x) ^ (9) 


It can be seen from equation (9) that, as with the Kelvin-Helmholtz phenomena, 
the Schlichting-Tollmien instability may never occur in a condenser having 
certain inlet vapor Reynold's number values. 


In the following analyses, it will be assumed that the neutral stability point 
will occur when the film Weber number reaches a value of 3.0 or when the film 
Reynold's number reaches a value of 200. 


Once a neutral stability point, Lj,, has been determined, it will be necessary 
to find L* , the point at which the instability manifests itself as a change in 
flow regime from annular to spray annular and/or fog flow. To do this requires 
examination of the film growth rate. Starting with a wave growth and a wave 
propagation equation (Reference 21): 


as - oe ^ 

P. — ^^C-? — • 


d 6 


dL 




dU,. 


the following relationship for L /l^ can be derived (see Appendix B-2): 

1/2 

# « \ 

2 ©C 


In 




( 10 ) 


As an example, from Reference (22), Inf— ^ = 12 when there are no external film 
disturbances. Also from References V^n ) 20 and 23. OC ci =0.02 
(Schlichting-Tollmien). Using water at 500°F ( ff/Py) - 30, find L*/]^. 
Substituting into equation (10): 


L /D =100 
c o 


L*/L n = 1.105 
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L c /D 0 = 200 Xi* /l*n = 1.0512 

For source of disturbances such as manifold turbulence, In B /B q ^ 12 and 
L*/Ln will be even closer to unity. Based on this example, the ratio L /Ln is 
assumed to equal unity in the programs. 

The behavior of the fluid past the point of film breakup also requires investi- 
gation. Past this point, the liquid film builds up beyond the neutral stability 
limit to a value determined by a balance between the spray deposition rate and 
the entrainment rate as follows: 

K e U-*e)<= n = ”2 ^ (11) 

Equation (ll) comes from Reference 24. 

The growth rate factor, ®C c . , is a function of the liquid film Reynold's 
number and should have a value in excess of R^ n if ^ 0. 

Figure 5 sketched from Reference 21 shows the situation. 

The state-of-the-art is insufficiently developed for accurate determination of 
the growth rate factor or the equilibrium film Reynold's number in the 
spray-annular flow regime, therefore, limiting situations should be taken into 
consideration. These are as follows : 

1. All of the liquid phase is on the wall. 

2. All of the liquid phase is entrained (fog or homogenous flow). 

Based on Figure 5, the true solution is believed to be closer to limiting 
condition (2), that is, past the neutral point fog flow exists. This assumption 
is used in all the programs. 

3.2.2 Two-Phase Pressure Drop 

3. 2. 2.1 Single-Phase Friction Factors 

For turbulent flow of a single-phase fluid, the friction factor depends on the 
Reynold's number and the relative roughness of the conduit surface. In 
laminar flow (Re ^ 2000) and transition (2000 < Re <. 4000 ) flow the friction 
factor, however, depends only on the Reynold's number. (These Reynold's numbers 
used to separate flow regimes may vary somewhat depending on whose data is used, 
but these are the limits assumed in the programs.) If data for flow in smooth 
pipes in the turbulent regime (Re ^ 4000 ) is used, the following expressions 
for friction factors for flow in circular pipes can be derived by curve fitting 
of data presented in Reference 10. 
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For laminar flow (Re < 2000): 
f = 64 Re" 1 * 0 


For transition flow (2000 < Re K. 4000 ) : ( 12 ) 

f = .00277 Re*^ 22 

For turbulent flow (Re ^ 4000, smooth pipes): 
f = .316 Re"* 25 


Equation (12) (known as the Moody friction factors) are used in the pressure 
drop calculations in all of the programs. 


3*2.2. 2 Frictional Pressure Drop Modulus, <j) 


Based on the findings discussed in Section 3.2.1, the following flow patterns 
are possible in the radiator-condensers considered in this analysis: pure 

annular flow from tube inlet to point of neutral stability (w f ^ 3.0 and 
Rf — 200) followed by fog or homogeneous flow, i.e., completely dispersed 
condensate (Wf > 3*0 or Rj 200) up to end of the condenser. As mentioned 
in Section 3*2.1, the point of neutral film stability may never occur within 
the condensing length and pure annular flow may exist throughout the entire 
condenser. 


In analyzing two-phase frictional pressure drop. It is convenient to introduce 
the Lockhart-Martinelli frictional pressure drop modulus, defined as: 


^ 2 — (dP/dL )rpp (rp^p ph ase frict ion) 

** v (dP/dL ) v (v a p 0r only friction) 


which is a measure of the influence of the liquid phase on the loss in pressure 
due to friction. With no liquid present, <$ 2 equals unity. The difficulty 
in solving for (dP/dL )^p lies in v determining the proper (J* 

consistent with the existing two-phase flow pattern. The value for 1 v 
(dP/d L) v can be re adil y determined from the bare tube vapor only relationship: 


(l) 


= f. 


8c 


1 

D 


Based on the assumed two-phase flow regime model, the first flow pattern to be 
investigated is annular condensate flow with a pure vapor core. Within this 
section of condensing tube, four possible single phase flow regime combinations 
might exist: l) laminar film and laminar core; 2) laminar film and turbulent 

core; 3) turbulent film and laminar core; 4) turbulent f ilm and turbulent core. 
Data from Colburn (Reference 13), however, shows that the flow pattern of a 
condensate film propelled by vapor drag changes from laminar to turbulent for 
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values of film Reynold's numbers of approximately 200 which coincides with the 
assumed point of neutral film stability. Therefore, only expressions for ^ 
for laminar film with either laminar or turbulent vapor core need be 
derived. 


If a smooth liquid-vapor interface is assumed, the influence of the liquid 
phase on the loss of pressure in the annular region can be assumed to be due 
only to the reduction in diameter of the vapor passage. 

For a laminar liquid film with laminar vapor core, 9 can now be expressed as: 

v ■*" v 

2 / _ \ 4.0 


* <k) 


where the expression fort — | is: 

\D 2 / 

3 


(%)’-• (U‘ - [(*)(?)(£)(£) 


= 0 (13) 


An approximate solution of equation(l3) for T>/l >2 which is used in the program 
and which results in negligible error for the ranges of D/Do expected is: 

1/2 


%•>•[(*)(?)(£)(£) 


For a laminar film with turbulent vapor core 

4.75 


(14) 


£ -a) 


is derived as: 


where the expression for D/D 2 is 
1-875 , _ x .875 


(k) [fe) (?)$> (ft)! 1 "- 01 ”’ 

An approximate solution of equation (l6) for D/D„ which is used in the programs 
and which results in negligible error for the ranges of d/d 2 expected is: 


Si “- 5 + 


.25 + 


f(A;XS)(£) m_ 


.5 


(16) 


Deviations of equations (13) through (16) and errors resulting from the 
approximate solutions of equations (13) and (15) are presented in Appendix B-3. 
For the fog or homogeneous two-phase flow regime assumed to exist from point 
of neutral film stability to the end of the condensing section, the following 
expression for <f> 2 is applicable: 

i V 
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<§* - X - 75 (17) 

This, els stated in Section 3 >2*1, assumes negligible amounts of condensate on 
the tube wall. The derivation of equation (17) is presented in Appendix B-3. 

The two-phase pressure moduli ^ 2 , presented in this section are used in all 
the two-phase pressure drop v calculations in the programs. 

3.2.3 Secondary Pressure Losses 

For the type of radiator-condensers considered in the computer programs, the 
total overall change in static pressure between inlet and outlet of the 
condenser be subdivided as follows: 

1. In let header frictional pressure loss. 

2. Header- to-tube turning and entrance loss. 

3 . Two-phase frictional condensing pressure drop. 

4. Pressure rise due to momentum recovery. 

5. Frictional pressure loss in liquid subcooling leg (if applicable). 

6. Tube to exit header turning loss. 

7. Exit leader frictional pressure loss. 

The two-phase frictional loss has been covered in Section 3.2.2. 

All the inlet headers (and the outlet headers for the fuel cell and primary/second- 
ary designs) should be designed for constant static pressure at the inlet of 
each tube. This is done by creating a momentum pressure recovery in the header 
between tube inlets equal to the header frictional pressure loss between the 
tubes. This momentum pressure recovery is accomplished by causing a velocity 
reduction along the header as the flow proceeds from the inlet to the outermost 
tube. (The momentum pressure recovery analysis is discussed later in this 
section.) This type of header, though, usually results in a design very close 
to that of one with a constant vapor velocity. This similarity, combined with 
the simplicity of a constant velocity header, prompted the use of the latter 
in the programs. The velocity used in the headers is the same as that in the 
inlet (or outlet) of the tubes. The frictional header losses, then, are 
calculated as though the average condition in the header exists throughout 
its length. 

The entrance and exit losses from header to tube and tube to header are taken 
as one velocity head in the tube at that point. This assumption is based on 
data presented in Reference 25. 
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The momentum pressure recovery can be determined with the aid of the following 
sketch : 


F 

«* — 



This sketch shows an incremental length of a condenser tube. Writing a 
momentum balance: 

SLF = (m^ + dmj ) (Uj + dUj ) + (n^ + dm^) (Uy + dUy) - m^U^ - m^U^. 

£ F = d (m^ ) + d (m^Uy) = AdP 

where now dP is the pressure change due to momentum change, then: 


AdP = d (m + d (m U) v 

In the case of complete condensation (liquid/vapor interface): 



Initially, at the condenser inlet, there is no liquid present (X mi.O) and 
at the interface the liquid velocity is assumed zero; therefore, there is no 
change in liquid momentum. Furthermore, since there is no vapor momentum at 
the Interface (zero velocity and flow rate) the momentum pressure recovery 
becomes: 

_/ P «i„ 


Ap, 


mom 




(18) 


Since AP mom has a positive sign, it indicates a pressure rise according to 
the sign convention of the sketch. 

In the case of the primary/secondary design or the fuel cell condenser where no 
liquid/vapor interface bridges the tube, some assumption must be made with 
regard to the liquid velocity. In both cases, it is assumed that it is travel- 
ing at the same velocity as the vapor core. As a result, there is no momentum 
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recovery in the pr imar y condenser since it has a constant vapor velocity 
throughout the tube and the loss in flow rate of the vapor is gained by the 
condensate. 


In the case of the fuel cell radiator condenser: 


A^P = 


reducing: 

^ Pmora = 


A (m U)^ + A (m U) y 

[o - (1 - X ) + [% Uin - X* 

P v U ln P v U ln U out 

8c Sc 



(19) 


These momentum pressure recovery terms, then, equations (l8) and (19), are 
used in the appropriate pressure drop equations in the programs. 


In all cases, frictional losses in the subcooler are assumed negligible due to 
the normally low velocities experienced here. 


3-2.4 Flow Instability 

In multiple-tube condensers two types of flow instability may occur: single 

tube instability and/or multiple tube instability. These instabilities, their 
causes and prevention, are discussed in the following paragraphs. 

3-2=4, 1 Single Tube Instability 


This type of instability is caused by a low drag force exerted by the flowing 


+■ r\ 




vapor on the condensate. With -flow in r^^oi-Mr.r. . -- ---- - — .. 

this drag must overcome the external force with some excess to accelerate the 
condensate to the condenser outlet. In zero g operation, this drag must move 
the condensate along the tube wall at a rate fast enough to prevent bridging 
of the film, a symptom of instability. If this drag force is insufficient, 
the condensate flow rate in the tube will oscillate and eventually the tube may 
fill with condensate and system instability will result. Appendix B-4 examines 
the vapor velocity necessary to produce a sufficient drag force on the condensate 
in an acceleration field (flow against gravity). This analysis concludes with 
the equation: 

,1/3 . 2 


n l 6 A m ill 

V TT D gc 
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( 20 ) 


Tf D ALgjj 


Equation (20) represents the minimum vapor velocity necessary to transport a 
condensate film against an acceleration force of n "g's". It can be seen 
that should n = 0, then V v = 0 which is obviously not true. However, deter- 
mination of the velocity, in this case, is beyond the present state-of-the-art 
and the best approach is to use some low value of n, say 0.05, in designing 
for zero g. 
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Equation (20) is contained in the programs and the value of n is solved for 
and is included in the outputs. 

3. 2. 2 Multiple Tube Instability 


This type of instability is also characterized by a filling or an emptying 
(of condensate) of a single tube in a parallel tube array but, in this case, 
is caused primarily by an insufficient frictional pressure loss in the condenser. 
Basically, this pressure loss has to be greater than the momentum pressure 
recovery and any static head which may be experienced in the condenser. Appendix 
B-5 is a discussion of this mode of instability. The appendix expresses the 
relationship : 


AP, 


> f 


fvSc 


Ly fa n 

3 


( 21 ) 


which expresses the flow conditions necessary to insure parallel tube stability. 
Equation (2l) is applicable to zero "g" (n = 0) but not to fuel cell radiators 
where complete condensation of the incoming mixture is not accomplished. In the 
latter case, the simpler form of equation (2l), i.e., AP s >0 is used. Both 
forms of equation ( 2 l)are included in the programs. 


3.3 Primary/Secondary Concept 

Geometrically, this type of radiator consists of a multiple tube radiator 
upstream of a single tube radiator. It has application to high ( 1.0 g) 
acceleration fields where the gravitational direction is arbitrary to the extent 
that it may require condensation with flow in opposition to an external body 
force. 

The multiple tube (or primary condenser) portion accepts a high quality of 
superheated mixture (from the turbine or compressor) and discharges a low 
quality mixture to the single tube (or secondary) condenser. The secondary 
condenser accepts this low quality vapor and delivers subcooled condensate to 
the pump or expansion valve. In both radiators, the tubes are tapered to 
maintain a high vapor velocity which is necessary for stable operation in 
"negative” g fields. This multiple/single tube configuration combines the 
lighter weight of the former with the higher stability of the latter. A sketch 
of the concept is shown on the following page. 
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There are many independent variables to consider in this design, the most 
significant of vhich is the outlet quality of the primary condenser* If a 
high outlet quality is designed into the radiator, the stability Tna-r grtn is 
increased but the weight is also driven up. The reverse is true in the case 
lower outlet quality* In the design program, this quality is taken as 
12g-$ based on previous optimization experience on the Sunflower I program 
(Reference 26). A detailed analysis of the concept as well as the basis of 
this and other assumptions is contained in Appendix B-6* 


As part of the primary/secondary design computer program, a single tube 
subcooler is designed using the same fin as the secondary condenser. This 
subcooler design is performed for information only, since a subcooler of this 
type is not conpatible with high negative acceleration field . Cavitation in 
the subcooler might occur as well as lowering of the pump or expansion valve 
inlet pressure (due to static head losses) below the minimum required for 
operation. In actuality, this subcooling should be accomplished indirectly 
in a short length to prevent this maloperation. It is inportant that this 
qual if ication be observed when using the results of the primary/secondary design 
program. 
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4.0 PROGRAMS DESCRIPTION 

4.1 Design Programs 

The basic method utilized in the design programs is to design a series of 
radiator condensers for all possible combinations of tube diameter, tube 
number, and fin width as instructed in the input. For instance, a portion of 
the input data is the minimum, maximum, and incremental tube number, tube 
diameter, and tube spacing to be considered. Although this input requires 
some knowledge of reasonable limits, this is not a severe restriction since 
experience usually provides this. In the event the user does not possess this 
experience, extremely wide limits with small increments may be used, but this 
may result in a higher computer rental cost. As an alternative, wide limits 
with large increments followed by a run with narrower limits (based on initial 
runs) and smaller increments may be used to conserve cost. In any case, the 
user chooses the radiator design best suited to his requirements (usually 
lightest weight) from the output data. This output data includes all the 
geometric characteristics of the radiator in addition to weight. 

In addition to the inputs mentioned above, the construction material and fluid 
properties (except in the case of the Hp-I^O fuel cell radiator) are required. 
These may be obtained, for all reasonable fluids and construction materials, 
from the Materials Manual, TRW ER- 6756 . Also required as inputs are the 
tube/fin and panel configuration (i.e., open sandwich, triform, etc.). The 
thermal environment must also be supplied as either a sink temperature or 
combinations of thermal and solar heat flux and absorptivity. And lastly, the 
flow conditions, i.e., flow rates, pressure drop, etc., must be known. 

Optional inputs are: 

1. Multiple sink temperature iteration. More than one sink temperature 
(or combinations of heat fluxes and absorptivities) may be inputed 
and the programs will design a series of radiators for each tempera- 
ture (or set of combinations) and then automatically proceed to the 
next. 

2. Minimum fin efficiency. A miniimun fin efficiency of 0.4 is observed 
unless geometric limitations are specified. In the latter case, a 
minimum of 0.0 is used. In either case, a maximum of 1.0 is observed. 

3 . Maximum and minimum condenser length, condenser width, and fin 
thickness. These may be specified, but if none is, no limit is 
observed by the programs* 

4. Tube wall thickness. This may be specified in the input, but if it is 
not, the tube wall will be calculated from meteoroid protection 
requirements which means that mission time and the desired probability 
of no meteoroid penetration must be given. 
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The programs use the results of the thermodynamic and fluid dynamic analyses 
of paragraphs 3*1 and 2.2 and Appendices A and B. In addition, the stability 
analyses of paragraph 3*2.4 and Appendix B are used to calculate the limiting 
acceleration field in which single and multiple tube stability can be maintained. 

The basic operation of the design programs follows this sequence; 



In the calculation of heat rejection and pressure drop, the condenser is assumed 
to be broken into three longitudinal sections with constant conditions in each 
section. If a subcooler is present, it is thermally divided into two parts. 

The following paragraphs treat each of the design programs in more detail. 

4.1.1 Fuel Cell Design Program 

Figure 6 is an information flow diagram of the fuel cell design program. In 
this type of radiator, a two component mixture of hydrogen gas and water vapor 
enters and a mixture of hydrogen gas, water vapor and water condensate is 
removed. As such, there is no liquid leg or subcooler to consider. For the 
purpose of heat transfer and pressure drop calculation, the condenser is divided 
into three equal longitudinal sections and the conditions at the center of each 
section are assumed to exist throughout that entire section. 

The program operates in the following sequence: 

1. The first combination of tube diameter, tube number and fin width is 
chosen, and the inlet and outlet flow conditions determined from the 
inputs. The sonic velocity check is made. 

2. The inlet and outlet headers are designed assuming the same mixture 
velocity as at the inlet and outlet of the condenser tubes, respectively. 

3* The header pressure drops and momentum pressure recovery are calculated 
and subtracted from the overall pressure drop allowance. This yields 
the two-phase frictional pressure drop. 
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k. Next, the multiple tube stability check is made* 

5. The condenser length is calculated from the allowable two-phase 
pressure drop, assuming average flow conditions exist throughout the 
length of the tubes. This step requires calculation of core and film 
Reynolds numbers, film Weber number, friction factor, and two-phase 
pressure drop modulus. 

6. At this point, the length limitation check (if any) is made, the 
single tube stability check is made, and the tube wall thickness is 
determined (if not an input) from meteoroid protection. 

7. The total condenser width and area are calculated and the width 
limitation check (if any) and fin efficiency check are made. 

8. The fin/tube and panel blockage factors are determined. 

9. Using the inputs and calculated quantities applicable, including the 
condenser length determined from assuming average conditions, the fin 
thickness is calculated from convective heat transfer from fluid to 
tube wall, conductive heat transfer to and through the fins, and radiant 
heat transfer to space. This step involves the computer solution of 

a 21 x 21 matrix (three sections with one fluid tenperature , two tube 
temperatures and four fin temperatures per section). Longitudinal 
conduction in the fins and tubes is taken into account. The thermal 
environment of space is also considered. 

10. The fin thickness limitation check (if any) is made. 

11. The flow conditions at the center of each section are determined and 
a new diameter which will satisfy the allowable two-phase pressure 
drop allowance is made. Again, this requires calculation of the same 
parameters (in each section, this time) a6 in step 5« This correction 
is usually very small and results in a tube diameter close to the 
input diameter. 

12. Since this new diameter causes a change in the vulnerable tube area, 
a correct wall thickness from meteoroid protection requirements is 
calculated (again only if not specified in the input). 

13. Finally, the total condenser area and weight are calculated and the 
program returns to the next combination of tube diameter, tube number, 
and fin width and repeats the process until the supply is exhausted. 

4.1.2 Isothermal Design Program 

Figure 7 is an information flow diagram of the isothermal design program. In 
this case, a superheated or high quality vapor enters the radiator and subcooled 
condensate is removed. For the purpose of heat transfer and pressure drop, 
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the condensing portion of the radiator is divided into three parts and the 
subcooler into two. No conduction between the condenser and subcooler is 
considered. (However, this heat flow path is taken into account in the isothermal 
performance analysis program. ) 

This program operates in the following sequence: 

1. The first com bin ation of tube diameter, tube number, and fin width is 
chosen and inlet flow conditions determined from the inputs. 

2. The sonic velocity check is made. 

3. The inlet header is designed, using the same velocity as at the inle t 
of the condensing tubes, and the header pressure drop calculated. 

4. The header pressure drop and momentum pressure recovery are subtracted 
from the overall pressure drop allowance to yield the allowable 
two-phase pressure drop. 

5. If the radiator panel geometry is a cone, an approximate subcooler-to- 
condenser length ratio is calculated (based on heat rejection rates 
and root tengaeratures ) and from this, a fin width at the interface is 
determined. 

6. By determining the flow conditions at the center of each of the 
condensing sections and assuming that condition exists throughout that 
section, the total condensing length is calculated from the allowable 
two-phase pressure drop. This requires the calculation (in each 
section) of core and film Revnold's numbers, film Weber n umb er, 
friction factors, and two-phase pressure drop modulus. 

7. The single tube and multiple tube stability checks are made. 

8. An approximate subcooler length is determined. 

9 . An approximate tube wall thickness is calculated for meteoroid protection 
(if not fixed in the inputs) and the condenser width and radiation 
blockage factors are calculated. 

10. The width limitation check (if required) and fin efficiency checks are 
made. 

11. Using the inputs and calculated quantities applicable including the 
calculated condenser length, the fin thickness is determined from 
convective heat transfer from the fluid to tube wall and radiant heat 
transfer to space. This step involves the solution of a 7 x 7 matrix 
(a s in gle section with two tube temperature s and four fin temperatures 
plus an additional total heat loss equation). Longitudinal conduction 
along the fins and tubes is not considered since the process is 
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essentially isothermal. The thermal environment of space is 
considered. 

12. The fin thickness limitation check is made, if required. 

13. A subcooler convection coefficient is calculated. 

14. An exact subcooler length is determined. This requires the solution 
of a 14 x 14 matrix (two subcooler sections with one fluid temperature , 
two tube temperatures, and four fin temperatures per section). 

15. An exact total length is calculated and the tube wall thickness is 
corrected (again, if not an input) for the small change in vulnerable 
area as a result of the difference in the corrected and approximate 
subcooler lengths and their effect on vulnerable area. The length 
limitation check is made, if required. 

16. The total condenser area and weight are calculated and the program 
returns to the next combination of tube diameter, tube number, and fin 
width and repeats the process until the supply is exhausted. 

4.1.3 Primary/Secondary Design Program 

Figure 8 is an information flow diagram of the primary/ secondary design program. 
This design is similar to the isothermal design in purpose, but the geometry 
is that of a single tube condenser- radiator downstream of a parallel tube one. 

The parallel tube portion (or primary) accepts a superheated or high quality 
mixture and discharges a low quality mixture. The single tube portion (or 
secondary) accepts the low quality mixture, completes the condensing, and 
rejects the heat of subcooling the condensate. This condenser radiator concept 
finds application where direct condensing against a high "g" field is required. 

The program operates in the following sequence: 

1. The first combination of tube diameter (at inlet to primary condenser), 
tube n umb er, and fin width is chosen and the inlet and outlet flow 
conditions (of the primary condenser) determined. (In this program the 
outlet quality of the pr imar y condenser is kept constant at 12. 5%. ) 

The sonic velocity check is made. 

2. The inlet and outlet headers of the primary condenser are designed. 

3. The header pressure losses and momentum recovery are calculated and 
subtracted from the overall drop listed in the inputs. Two thirds of 
this difference is allotted to the primary condenser (based on experience 
for optimized radiators). The remaining one-third is allotted to the 
secondary condenser. 

4. Next, the primary condenser length is determined by assuming constant 
conditions in each of the three longitudinal sections of the condenser. 
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Again, this requires calculation of core and film Reynold’s nunibers, 
film Weber number, friction factor, and two-phase pressure drop 
modulus. The length l imit ation check is made. The gravitational 
capability is determined. 

5* The secondary condenser length is determined from the remaining 

pressure drop assuming fog flow. This assumption is based on the high 
condensate flow rate which will cause a high film Reynold’s number 
and resultant fog flow. Since multiple tube stability is not a 
problem in the secondary condenser, its fluid velocity may be half of 
that used in the primary condenser without a decrease in the stab ilit y 
margin. 

6. The subcooler length is determined (assuming the same fin width and 
thickness as in the secondary condenser) from the sensible heat 
rejection requirement. 

7« The tube wall thickness is calculated from the meteoroid protection 
requirement, unless listed in the input, and the primary condenser 
width and area calculated. 

8. The width limitation check is made, if required, and the fin efficiency 
check is made. 

9. The primary condenser fin thickness is then calculated based on the 
heat rejection requirements. This step involves the solution of a 
7x7 tube/fin matrix (no longitudinal conduction). The fin thickness 
check is made. 

10 . Next, the fin width for the secondary condenser is calculated assuming 
an optimum weight fin (^- 57# efficient). 

11 . The secondary fin thickness is then calculated vising the same matrix 
as in step 9« 

12 . The total condenser area and weight are then calculated. The program 
returns to the next comb in ation of tube diameter, tube number, fin 
width and repeats the process until the supply is exhausted. 

^•2 Performance Analysis Programs 

These programs are intended to define the performance of an existing radiator 
under conditions other than those assumed in its design. As such, it is 
necessary that the conplete geometry and fluid and material properties are known 
and the problem is to define the outlet conditions that will satisfy the heat 
transfer capability of the fins, (in the isothermal condenser, an additional 
problem of determining the pressure level exists. ) Once the outlet co n dition 
is determined, the pressure drop is solved. Throughout the program the sonic 
velocity limitation and stability criteria discussed in paragraph 3.2.4 are 
observed. 
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An additional capability of being able to consider up to twelve simultaneous 
sink temperatures exists in the performance analysis programs. These sink 
temperatures (or combinations of heat fluxes and absorptivities ) are needed 
as inputs. The programs then balance weight flow, pressure drop, and in the 
case of the isothermal condensers, condensing length, for each sink-temperature 
affected set of tubes, until the necessary equations are satisfied. Further- 
more, the performance programs will automatically control to an outlet tempera- 
ture, if desired, by segmentation and, in the case of the isothermal condensers, 
proportional bypass. Lastly, the isothermal case can consider constant inventory 
or constant pressure condensers. 

The basic operation of the performance analysis programs follows this sequence: 



if required 

The same geometric breakdown as in the design programs, i.e., three sections in 
the condenser and two in the subcooler, if applicable, is used here. Longi- 
tudinal thermal conduction from the condenser to the subcooler is also considered 
in the analysis programs, again, if applicable. 

The following paragraphs treat the two performance analysis programs in more 
detail. 

4.2.1 Fuel Cell Performance Analysis Program 

Figure 9 is an information flow diagram of the fuel cell performance analysis 
program 

This program is limited to hydrogen gas/water vapor working mixtures and will 
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automatically segnent to prevent freezing or to control an outlet mixture 
temperature, but does not consider proportional bypass of the radiator. 

The program operates as follows: (in the following steps, it is assumed that 

more than one sink temperature is to be considered at a single time. In the 
event only a single sink is to be considered, some steps are obviously 
bypassed. ) : 

1. The inlet saturation temperature is calculated and checked against 
the value of the outlet temperature to be met, if any. The Inlet 
saturation temperature must be higher or the run is rejected and an 
explanation given. 

2. The mixture velocity at the inlet of the tubes is calculated and 
compared with the sonic velocity. If the Mach number is greater than 
the maximum specified, the run is rejected and the Mach number noted. 

3* The first sink temperature is chosen and compared with the inlet 
saturation temperature. If the sink temperature is higher, the 
outlet temperature of the radiator is assumed to be equal to the 
inlet saturation temperature, and the program proceeds to (5) below. 

This has the effect of assuming removal of the sensible heat of the 
mixture but no latent heat. If the sink is below the Inlet saturation 
temperature, the program proceeds to the next step. 

h, A temperature map of the radiator Is generated in a 21 x 21 matr ix 
(seven nodal points in each of three longitudinal sections). The 
solution yields the temperatures at the center of each of the three 
sections and the outlet temperature . 

5- The pressure drop is calculated assuming constant conditions throughout 
each of the three sections (but different conditions in each section). 
This involves determination of film stability, flow regimes, and 
two-phase pressure drop moduli as in the design programs. This includes 
the case where the sink temperature is higher than the inlet saturation; 
one-third of the sensible heat is assumed to be lost in each section. 

6. The pressure drops through each sink-tenperature-affected set of tubes 
is then examined and the flow rates adjusted to produce equal pressure 
drops. (This is not done if only one sink temperature is to be 
considered. ) 

7* A check is made of the outlet temperature of each sink-tenperature- 
affected set to see if any tubes are frozen. If they are, segments 
are automatically removed in the reverse order of the input listing 
until the freezing condition is alleviated (in the case of a segmentable 
radiator). If, with a frozen condition, the radiator cannot be 
segmented any further, or at all, the program stops and the situation 


35 




TRW EQUIPMENT LABORATORIES 


1b described in an output statement. 

8. Then the temperature resulting from mixing the outlet flow from all 
the tubes (assuming ideal mixing always on the saturation line) is 
calculated. 

9. This mixture temperature is compared to the required mixture tempera- 
ture, if given. If no mixture tenperature is given, the program stops 
and the outputs printed. If the actual mixture temperature is lower 
than the required mixture temperature, segments are removed, if 
possible, in reverse order of the input listing, until the actual 
mixture temperature is above the required mixture temperature . The 
outputs from each segment combination are listed and the program 
stops. The last two combinations, then, will have the closest outlet 
mixture temperatures above and below the required temperature. 

4.2.2 Isothermal Performance Analysis Program 

Figure 10 is an information flow diagram of the isothermal performance analysis 
program. 

This program can consider any fluid condensing isothermally and includes desuper- 
heating and subcooling. The program will consider simultaneous multiple sink 
temperatures, automatic proportional bypass or segmentation to control the 
outlet temperature and constant inventory or pressure regulated condensers. 

The program operates as follows: 

1. An "average" sink temperature is found from those given. 

2. If proportional bypass is to be employed, 25$ of the flow is assumed 
to be bypassed at the start. 

3 . If a constant pressure condenser is used, an average condensing length 
is calculated assuming the "average" sink of step (l). If a constant 
inventory condenser is used, the average condensing length is specified 
in the inputs. 

4. At this point, a check is made to be certain the condensing length of 
step (3) is less than the total length. If not, the run is stopped and 
the reason printed in the output. 

5 . Next, a temperature map of the "average" radiator is generated by the 
solution of a 33 x 33 matrix. This matrix describes the thermal 
behavior of the radiator including all longitudinal conduction, space 
thermal environment, and panel and tube/fin blockage factors. Five 
longitudinal sections are assumed, three in the condenser and two in 
the subcooler. Four fin and two tube nodal points per section are 
used in the condenser and four fin, two tube, and one fluid nodal 
point per section are used in the subcooler. One additional heat loss 
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equation makes up the 33 x 33 matrix. The solution of the matrix 
yields the outlet subcooling temperature and the condensing temperature, 
if it is not specified. 

6. Next, the pressure drop is calculated, assuming, as in the other cases, 
constant flow conditions throughout each of the three longitudinal 
sections. As in the other cues, this pressure drop involves calcula- 
tion of film conditions, flow regimes and two-phase pressure drop 
moduli as well as header, entrance and momentum pressure losses. T’ho 
sonic velocity check is made, but the run is not stopped if the Mach 
number is greater than the maximum specified since further bypass or 
segmentation may rectify the situation. 

7. At this point, if there is only one sink temperature and no segmenta- 
tion or bypass is to be considered, the program is finished the 
output printed. If there is moire than one sink temperature, the 
pressure drop/mass flow/sink temperature/condensing length relationship 
of the average case is entered into a matrix which contains pressure 
drop, flow rate, condensing length, and sink temperature relationships 
for each sink- temperature-affected series of tubes. Solution of this 
matrix yields the Individual values of the two dependent variables 
(condensing length, flow rate) for equal pressure drops and equal 
condensing temperatures in all the sink- temperature- affected series of 
tubes. 


f.hnan caf.c 




4 e win 4* V» ■» r*Vk 

... - WiiXUUjyi 


for the specific rather than the average case* 


(r\\ 


fo\ 

VJ/; 


/ ). \ ~ j f c\ 

\-r/ \J) 


9. If no outlet temperature is to be matched, this is the end of the 

simple multiple sink case, and the outputs are printed. If an outlet 
temperature is to be matched, the actual mix ture temperature (obtained 
by m ixing the outlets of all tubes plus the bypass, if any) is compared 
with the required mixture temperature . 


10a. If proportional bypass is called for by the inputs, the bypass is 

adjusted to give this required temperature and the program returns to 
step (3). This is repeated until the outlet mixture temperature is 
within 1$ of that called for in the input. At this point the outputs 
are printed. 


10b. If segmentation is called for in the input, the present mixture temper- 
ature is compared to that required. If the former is higher, the 
program is stopped and the present performance printed in the outputs 
because no improvement can be made. If it is lower, segments are 
removed, one by one in the reverse order of the input listing (each 
time going back to step (l)), until the actual mixture temperature is 
above that required or no more segments are left. At this point, the 
result of the segment combinations examined are printed in the output 
and the program is completed. The last two combinations will provide 
the closest outlet mixture temperatures above and below that required. 
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5.0 RECOMMENDATIONS 

(a) The programs developed herein do not consider single phase non- isothermal 
rejection of heat in space. This mode of waste heat radiation finds 
application in all indirect heat rejection systems as well as Brayton 
cycle power systems employing direct heat removal. A modification of 

the fuel cell programs developed on this contract would result in conputer 
programs capable of this consideration at an economical cost. 

(b) Expansion of the present programs to include system characteristics would 
be valuable. Since, in most systems, the components act as a feedback 
loop on the radiator, a radiator-condenser component analysis is limited 
in significance. 

(c) Consideration of transient performance of radiators and/or radiator systems 
presents an accurate picture of the physical happening. It is recommended 
that these programs be expanded upon to include the transient effect either 
singly or in conjunction with (b) above. 
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6.0 DESIGN PROGRAMS 

There are three direct radiator-condenser design programs: Hg-HpO Fuel Cell 

Direct Radiator- Condenser, Isothermal Direct Radiator- Condenser with Subcooler, 
and Isothermal Primary- Secondary Direct Radiator-Condenser with Subcooler. 

6.1 Independent Variables 

Four independent variables have been chosen in the design programs. They are: 

1) inside diameter of condenser tube at inlet, 2) number of tubes, 3) fin 
half -width, and 4) sink temperature or solar and thermal incident radiation. 

With other inputs specified, the design programs will investigate and design, 
if possible, a number of radiators equal to the number of possible combinations 
of 1), 2), 3) and 4) above. 

Ranges of the inside diameter of condenser tube at inlet, tube number, and fin 
half -width are specified by giving a minim an value, a maximum value, and a value 
for an incremental step change. Different the rmal environments are specified 
by different sink temperature values or different pairs of incident solar and 
incident thermal radiation. 

The incident radiation to be entered in the input is the total thermal or solar 
energy intercepted by the total radiating area. In the case of a flat plate, 
for instance, the energy intercepted by one side of the radiator is added to that 
intercepted by the other and the sum is divided by the total (both sides) area. 
Sink temperatures and incident heat fluxes cannot be mixed for any one set of 
inputs; for example, if the user specifies the first environment with a given 
sink temperature , he cannot specify subsequent environments with inc ident 
radiation in the same set of inputs. 

6.2 Geometric Configurations 

Tube-fin configurations, panel configurations and working fluid class are included 
in the input through the code word FUNT. For the values for PUNT refer to 
Figure 11. For example, from Figure 11, a radiator having a closed sandwich, 
cruciform configuration and using water as the working fluid, the number for 
PUNT would be 3412. If the user requires a closed sandwich cylindrical or conical 
configuration, he must specify the "inner fin" thickness and density. In these 
cases, the first number of "PUNT" must be 2 and the program then treats the design 
as an open sandwich (the inner fin neither effects or affects heat tr an sfer) but 
the weight of the inner fin is calculated. 

If a conical panel configuration is desired, the cone diameters at inlet and exit 
have to be specified, thus removing one degree of freedom. The independent 
variable becoming dependent is fin half -width. No range of values for this 
variable (fin half -width) is, therefore, required. If a range of values is 
included, the program will ignore them. 

If a segment of a cone is to be designed, equivalent values for DCMIN and DCMAJ 
must be solved for using: 
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times the arc length of the segment at the inlet 


times the arc length of the segment at the outlet 


6.3 Optional Geometric Restrictions 

Geometric restrictions can be imposed on overa.il width (circumference in case 
of cylinder), overall length (in primary/ secondary radiator, maximum total 
length and maximum and minimum on pr im a r y condenser length), and total fin 
thickness (sum of both fins for closed sandwich, except in cylinder or cone 
where the fin thickness is of the "outer fin", only). If the user desires to 
impose one or more geometric restrictions, values have to be supplied for the 
minimum and maximum allowable values for the dimension( s). If a minimum value 
is desired, a maximum value must be also given, since the geometric limit tests 
are performed only if the maximum allowable dimension is non-zero. The program 
will design complete radiators for only those combinations of independent 
variables that cause the restricted dimension(s) to fall within the specified 
limits. 

6.4 Diagnostic Tests 


DCMIN = 

1 

TT 

DCMAJ = 

1 

IT 


To obtain a complete radiator-condenser design, the programs insure that the 
following tests are passed: 


Test No. 1 Vapor velocity at tube inlet less than sonic velocity 
( single phase ) . 


Test No. 2 
Test No. 3 
Test No. 4 

Test Mo. 5 
Test No. 6 


Pressure change due to friction is negative. 

Overall length within specified limits (optional). 

Overall width (or circumference) within specified limits 
(optional). 

Fin thickness within specified limits (optional). 

Approximate fin efficiency greater than .4 and less than 
1.0 (if geometric restrictions are imposed the lower limit 
is set equal to zero). 


Test No. 7 Calculated gravitational capability greater than specified 
value (for primary/secondary program, only), (optional). 

Test No. 8 Secondary fin width greater than zero (primary/secondary 
condenser, only). 
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Test No. 9 Inlet water vapor saturation temperature higher than the 
required outlet saturation temperature (fuel cell design 
program, only) . 

Test No. 10 Convergence of matrices for temperature solution. 

Failure to satisfy any of the above conditions will cause the program to select 
the next combination of independent variables. 

If all, or a majority, of designs fail to pass one or more of the above tests, 
adjustments to the input values (excluding thermal environment and allowable 
pressure drop) may cause tests to be passed. These adjustments are contained 
in Figure 12. 

6.5 Hp-HpO Fuel Cell Radiator Design Program 
6.5*1 Input Cards and Options 

In order to use the I^-HgO fuel cell design program, a set (or sets) of input 
data cards must be prepared as follows (options under Sections 6.1, 6.2, 6.3 
apply): 
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INPUT DATA CARD DESCRIPTION 
FUEL CELL DESIGN PROGRAM 


SYMBOL 



3 to 
n + 2 
(where 
n is 
defined 
on 

card 2) 


3 + n 


11-20 


21-30 


1-10 

11-20 

21-30 

31-^0 

41-50 

51-60 

61-70 

71-80 


MDVIN 

PM 

TIN 

TOUT 

DPTOT 

KTH 


DESCRIPTION 
OR PARAMETER 


Identification card (any 
alphabetical or numerical 
combination) 


Number (n) of sink temper- 
atures (TS) or pairs of 
incident solar (QIS) and 
thermal (QIT) heat fluxes 
to be considered without 
program restart (up to 20 
values or combinations) 


When sink temperatures are 
given, value for TS; when 
incident fluxes are given, 
any negative number 

When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIS 

When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIT 


flow rate of noncondensable 
gas, Hg 

flow rate of water vapor at 
condenser inlet 
total pressure 
inlet temperature 
outlet fluid temperature 
of individual segment 
overall static pressure loss 
thermal conductivity of 
tube material 
thermal conductivity of 
fin material 



psia 

°R 


psi 

BTiyhr-ft-°F 

BTiyhr-ft-°F 


* Rig^ justify in field (all other inputs under decimal control). 

+ All cards are required; only entries are optional. 
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INPUT DATA CARD DESCRIPTION 
FUEL CELL DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

1* + n 

1-10 

RHOF 

density of fin material 

lb/ft3 

X 



11-20 

RHDT 

density of tube material 

lb/ft3 

X 



21-30 

RHDH 

density of header material 

lb/ft3 

X 



31-^0 

TH 

given header vail thickness 

in 

X 



41-50 

ET 

emissivity of tube coating 


X 



51-60 

KF 

emissivity of fin coating 


X 



61-70 

FSV 

maximum allowable Mach 


X 



71-80 


number of vapor, only 





DCMIN 

diameter of conical 

ft 

Cone 





panel at inlet 




5 + n 

1-10 

DCMAJ 

diameter of conical 

ft 

Cone 





panel at outlet 





11-20 

LCMTN 

minimum allowable con- 

ft 


X 




densing length 





21-30 

LCMAX 

maximum allowable con- 

ft 


X 


31-1*0 


densing length 





TIF 

Internal fin thickness. 

in 


X 


1*1-50 


closed sandwich cone 
or cylinder 





RHOIF 

density of internal fin 

lb/ft3 


X 


51-60 


material, closed sand- 
wich cone or cylinder 





WMAX 

maximum allowable total 

ft 


Y 


61-70 


condenser width (in 
triform three times 
single panel width, etc.) 





UMIN 

minimum allowable total 

ft 


X 




condenser width 





71-80 

TFMIN 

minimum allowable fin 

in 


X 




thickness (both fins in 
a closed sandwich 
non-cone) 






















TRW EQUIPMENT LABORATORIES 


INPUT DATA CARD DESCRIPTION 
FUEL CELL DESIGN PROGRAM (continued) 


CARD 

NO. 

COLUMN 

NOS. 

SYMBOL 

6 + n 

1-10 

TFMAX 


11-20 

DIIN0 


21-30 

DIINF 


3l-4o 

DIIND 


41-50 

N 0 


51-60 

N F 


61-70 

N D 


71-80 

WINA 0 


7 + n 


8 + n 


11-20 

21-30 


31-40 

41-50 


51-60 

61-70 

71-80 


WINA F 

WINA D 
TTG 


TAU 

-LNPO 

(must 

be 

posi- 

tive) 

MEF 

METH 

ALPHS 


DESCRIPTION 
OR PARAMETER 


maximum allowable TF 
fin thickness 
smallest value of DIIN 
to be considered 
largest value of DIIN 
to be considered 
increment of DIIN to be 
considered 

minimum value of N to be 
considered 

maximum value of N to be 
considered 
increment of N to be 
considered 

smallest value of fin 
half -width to be 
considered 


largest value of fin 
half-width to be 
considered 

increment of fin half- 
width to be considered 
given tube wall thickness 
(will cause bypass of 
meteoroid protection 
requirement) 
mission time 
the negative of the 
natural log of the 
probability of no 
meteoroid puncture in 
TAU days 

modulus of elasticity of 
fin material 

modulus of elasticity of 
tube material 
solar absorptivity 


1-10 ALPHT thermal absorptivity 


PUNT (see figure 11 ) 
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UNITS 





REQUIRED 


X 

X 

X 

X 

X 

X 

non-cone 


non- cone 
non- cone 


OPTIONAL 

+ 


If TTG=0 

it 



If TS 
not given 


If TS 
not given 
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Cards 1 through (9 + n) may be repeated for different sets of inputs. The 
next identification card Immediately follows the last card (PUNT) of the 
previous input set. 

Radiator material properties should be evaluated near the saturation temper- 
ature. In most cases, the t empe ratine value of the specified TOUT might 
be applicable. Most material properties do not vary greatly within the 
temperature range to be encountered, and an approximate value gives sufficient 
accuracy. 

A typical input data sheet for the Fuel Cell Design Program is shown in 
Appendix C (Figure C-l). 

6.5.2 Output Description 

A typical set of outputs is shown in Appendix C (Figure C-2). A fixed input 
data block is followed by groups of outputs headed by a corresponding sink 
temperature value. For each combination of DIIN, N, WINA, a complete radiator 
design (consisting of 29 additional values) or the cause of a diagnostic test 
failure is given. The nomenclature used in the outputs is listed in the 
Nomenclature Section. However, several outputs require additional explanation. 

DIINX 


This is the actual value of the tube inlet inside diameter for the particular 
radiator design and should be the figure used. Its value is normally slightly 
different from that of DIIN. 

WINX, WOUX 

The values for the fin half -width at the inlet and exist headers are equal to 
each other and to WINA. for all non-cone configurations. In a cone, WINA = 0 
and WINX 4 WOUX. 

TIP, T20, T30 

These are saturation temperatures for the water vapor at nodes 10, 20 and 30, 
respectively. 

MIF 

Unless a value for the thickness (TIF) and density (RHDIF) of the "inner fin" 
(cylinder or cone with closed sandwich construction) is specified, this value 
is zero. 

TTX 

If TTX is negative (a result of the fins alone, providing sufficient meteoroid 
protections) the affected designs should be rerun with TTG specified based on 
strength requirements. 
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The output messages of Figure 13 (other than complete radiator designs) will 
appear after a particular combination of DIIN, N, WINA if a radiator cannot be 
designed. See Figure 12 for remedies. 

6.6 Isothermal Radiator Design Program 

6.6.1 Input Cards and Options 

In order to use the isothermal radiator design program, a set (or sets) of input 
data cards must be prepared as follows (options under 6.1, 6.2, 6.3 apply): 
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INPUT DATA CARD DESCRIPTION 


ISOTHERMAL DESIGN PROGRAM 


CARD COLUMN DESCRIPTION 

NO. NOS. SYMBOL OR PARAMETER 


Identification card (any 
alphabetical or numerical 
combination) 


Number (n) of sink temper- 
atures (TS) or pairs of 
incident solar (QIS) and 
thermal (QIT) heat fluxes 
to be considered without 
program restart (up to 20 
values or combinations) 


When sink temperatures are 
given, value for TS; when 
incident fluxes are given, 
any negative number 


When sink tenperatures are 
given, zero; when incident 
fluxes are given, value 
for QIS 


21-30 When sink temperatures are 

rrf wn „ • uVtan -T wa -I A 

fluxes are given, value 
for QIT 


1-10 PC average condensing pressure 

11-20 TC average condensing temper- 

ature 

21-30 MDT total flow rate 

31-40 XIN inlet quality 

41-50 DPTOT overall static pressure 

loss 

51-60 TOOT outlet fluid temperature 

of individual segment 
61-70 R gas constant 

71-80 GAMMA ratio of specific heats 

of vapor 


OPTIONAL 

UNITS REQUIRED + 




lheft 


* Right justify in field (all other inputs under decimal control). 

+ All cards are required; only entries are optional. 
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I 


INPUT DATA CARD DESCRIPTION 
ISOTHERMAL DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

4 + n 

1-10 

VISV 

absolute viscosity of 

lb/ft- sec 

X 





vapor 

lb/ft- sec 




11-20 

VISL 

absolute viscosity of 

X 





condensate 





21-30 

HFG 

heat of vaporization of 

BTU/lb 

X 





working fluid 





31-40 

CL 

specific heat of 

BTU/lb- F 

X 





condensate 

lb/ft 3 




41-50 

RHOL 

density of condensate 

X 



51-60 

SUFT 

liquid-vapor surface 

lb/ft 

X 





tension 





61-70 

KC 

thermal conductivity of 

BTiy'hr-fb-^ 

X 





condensate 

lb/ft 3 




71-80 

RHOT 

density of tube material 

X 


5 + n 

1-10 

RHOF 

density of fin material 

lb/ft 3 

X 



11-20 

KTH 

thermal conductivity of 

BTl/hr-ft>°F 

X 





tube material 

BTU/hr-ft-°F 




21-30 

KF 

thermal conductivity of 

X 





fin material 

lb/ft 3 




31-40 

RHOH 

density of header material 

X 



41-50 

TH 

given header wall 

in 

X 





thickness 





51-60 

FSV 

maximum allowable Mach 


X 





number of vapor, only 





61-70 

ET 

emissivity of tube 


X 





coating 





71-80 

EF 

emissivity of fin 


X 





coating 




6 + n 

1-10 

CV 

specific heat of vapor 

BTU/lb-°F 

X 



11-20 

TIN 

inlet temperature 

°R 

X 



21-30 

TAU 

mission time 

days 

If TTG=0 



31-40 


the negative of the 


II 





natural log of the 






be 

probability of no 






posi- 

meteoroid puncture 





41-50 

tive) 

in TAU days 





MEF 

modulus of elasticity of 

psi 

ft 





fin material 





51-60 

METH 

modulus of elasticity of 

psi 

II 





tube material 





61-70 

TTG 

given tube wall thickness 

in 


X 


71-80 


(will cause by-pass of 
meteoroid protection 
requirement) 


[f TS not 



ALPHS 

solar absorptivity 







given 



I 


48 





















TRW EQUIPMENT LABORATORIES 


INPUT DATA CARD DESCRIPTION 
ISOTHERMAL DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

7 + n 

1-10 

ALPHT 

thermal absorptivity 


If TS not 
given 



11-20 

DCMIN 

diameter of conical panel 

ft 

Cone 





at inlet 





21-30 

DCMAJ 

diameter of conical panel 

ft 

Cone 





at outlet 





31-40 

LTMIN 

minimum total length 

ft 


X 


41-50 

LTMAX 

maximum total condenser 

ft 


X 


51-60 


length 





TIF 

internal fin thickness, 

in 


X 


61-70 


closed sandwich cone 
or cylinder 

lb/ft 3 




RHOIF 

density of internal fin 


X 


71-80 


material, closed 
sandwich cone or 
cylinder 





WMIN 

minimum allowable total 

ft 


X 




condenser width 




8 + n 

1-10 

WMAX 

maximum allowable total 

ft 


X 




condenser width (in 
triform three times 
single panel width, etc. ) 





ix-au 

TTMUd 

minimum allowable fin 

in 


X 




thickness (both fins in 
a closed sandwich non-cone) 





21-30 

TFMAX 

maximum allowable TF fin 

in 


X 




thickness 





31-40 

DMIN 

minimum inside tube diameter 

in 

X 





to be considered 





41-50 

DMAX 

maximum inside tube diameter 

in 

X 





to be considered 





51-60 

DDEL 

increment of tube diameter 

in 

X 





to be considered 





61-70 

NMIN 

minimum value of N to be 


X 





considered 





71-80 

NMAX 

maximum value of N to be 


X 





considered 
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INPUT DATA CARD DESCRIPTION 
ISOTHERMAL DESIGN PROGRAM (continued) 


CARD 

NO. 

COLUMN 

NOS. 

SYMBOL 

DESCRIPTION 
OR PARAMETER 

UNITS 

REQUIRED 

OPTIONAL 

+ 

9 + n 

1-10 

NDEL 

increment of N to be 


X 





considered 





11-20 

WIN 

minimum value of fin 

in 

X 




MIN 

half -width to be 







considered 





21-30 

WIN 

maximum value of fin 

in 

X 




MAX 

half -width to be 







considered 





31-40 

WIN 

increment of fin half -width 

in 

X 




DEL 

to be considered 




10 + n 

1-4 

* 

PUNT 

(see figure 11 ) 


X 
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Cards 1 through (10 + n) may be repeated for different sets of inputs. The 
next identification card immediately follows the last card (PUNT) of the previous 
input set. 

Radiator material and working fluid properties should be evaluated at the average 
condensing temperature (TC). 

A typical input data sheet for the isothermal radiator design program is shown 
in Appendix C (Figure C-3). 

6.6.2 Output Description 

A typical set of outputs is shown in Appendix C (Figure C-k). A fixed input 
data block is followed by a statement showing the pump power consumed in the 
radiator condenser due to pressure drop. Groups of outputs headed by a 
corresponding sink temperature value follow. For each combination of DIIN, N, 
WINA a complete radiator design (consisting of 29 additional values) or the 
cause of a diagnostic test failure is given. The nomenclature used in the 
outputs is listed in the Nomenclature Section. However, several outputs require 
additional explanation. 

WINXX, WQUXX 

The values for the fin half -width at the inlet and exit leaders are equal to ea c h 
other and to WINA for all non-cone configurations. In a cone WINA = 0 a nd 
WDOOSpfWOUXX. 

NUE. NPG 


The smaller positive or larger negative value of the two gravitational capa- 
bilities governs, a negative value indicates that a gravitational force (based 
on NUE or NPG) in the direction of flow is necessary for stable operation. 

MIF 

Unless a value for the thickness (TIF) and density (RHOIF) of the "inner fin" 
(cylinder or cone with closed sandwich construction) is specified, this value 
is zero. 

TTX 

If MX is negative (a result of the fins alone, providing sufficient meteoroid 
protection), the affected designs should be rerun with TTG specified based on 
strength requirements. 

The output messages of Figure ih (other than complete radiator designs) will 
appear after a particular combination of DIIN, N and WINA if a radiator cannot 
be designed. See Figure 12 for remedies. 


51 


TRW EQUIPMENT LABORATORIES 


6.7 Primary/Secondary Isothermal Radiator Design Program 
6.7*1 Input Cards and Options 

In order to use the primary/ secondary radiator design program, a set (or sets) 
of input data cards must be prepared as follows (options under 6.1, 6.2, 6.3 
apply) : 
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INPUT DATA CARD DESCRIPTION 


PRIMARY/ SECONDARY DESIGN PROGRAM 


SYMBOL 



21-30 


1-10 

11-20 

21-30 

31-40 

41-50 


61-70 

71-80 


MDT 

XIN 

DPTOT 


51-60 TOUT 


R 

GAMMA 


DESCRIPTION 
OR PARAMETER 


Identification card (any 
alphabetical or numerical 
combination) 


Number (n) of sink tempera- 
tures (TS) or pairs of 
incident solar (QIS) and 
thermal (QTP) heat fluxes 
to be considered without 
program restart (tip to 12 
values or combinations) 


When sink temperatures are 
given, value for TS; when 
incident fluxes are given, 
any negative number 


When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIS 


When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIT 


average condensing pressure 
average condensing temper- 
ature 

total flow rate 
inlet quality 
overall static pressure 
loss 

outlet fluid temperature 
of individual se&nent 
gas constant 
ratio of specific heats 
of vapor 


OPTIONAL 

UNITS REQUIRED + 



* Right Justify in field (all other inputs under decimal control) 

+ All cards are required; only entries are optional. 
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INPUT DATA CARD DESCRIPTION 
FRIMARY/SECONDARY DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

4 + n 

1-10 

VISV 

absolute viscosity of 

lb/ft-sec 

X 





vapor 

lb/ft- sec 




11-20 

VISL 

absolute viscosity of 

X 





condensate 

BTU/lb 




21-30 

HFG 

heat of vaporization of 

X 





working fluid 

BTU/lb-°F 




31-^0 

CL 

specific heat of 

X 





condensate 

lb/ft 3 




41-50 

RHOL 

density of condensate 

X 



51-60 

SUFT 

liquid-vapor surface 

lb/ft 

X 





tension 

BTtjfar-ft- 0 F 



i 61-70 

KC 

thermal conductivity of 

X 


i 


condensate 

lb/ft 3 



| 71-80 

RHOT 

density of tube material 

X 


5 + n 

1-10 

RHOF 

density of fin material 

lb/ft3 

X 



11-20 

KTH 

thennal conductivity of 

BTl^hr-ft-°F 

X 





tube material 

BTU/for-fb-°F 




21-30 

KF 

thermal, conductivity of 

X 





fin material 

lb/ft3 




31-40 

RHOH 

density of header material 

X 



41-50 

TH 

given header wall thickness 

in 

X 



51-60 

FSV 

maximum allowable Mach 


X 





number of vapor, only 





61-70 

ET 

emissivlty of tube coating 


X 



71-80 

EF 

emissivity of fin coating 


X 



1-10 

CV 

specific heat of vapor 

BTU/lb-°F 

X 



11-20 

TIN 

inlet temperature 

°R 

X 



21-30 

TAU 

mission time 

days 

If TTG=0 



31-40 


the negative of the 


tl 





natural log of the 






be 

probability of no 






posi- 

meteoroid puncture in 






tive) 

TAU days 





41-50 

MEF 

modulus of elasticity of 

psi 

It 





fin material 





51-60 

METH 

modulus of elasticity of 

psi 

It 





tube material 





61-70 

TTG 

given tube wall thickness 

in 


X 


71-80 


(will cause bypass of 
meteoroid protection 
requirement) 



X 


NUEG 

minimum gravitational 

g's 





capability 
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INPUT DATA. CARD DESCRIPTION 
EKIMARY/SECOHDARY DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

7 + n 

1-10 

TFMIW 

minimum allowable fin 

— 

in 


X 




thickness (both fins 
In a closed sandwich 
non-cone ) 





11-20 

TFMAX 

maximum allowable 

in 


X 




fin thickness 





21-30 

LPMIN 

minimum length of primary 

ft 


X 




condenser 





31-40 

LPMAX 

maximum length of primary 

ft 


X 




condenser 





41-50 

WMIN 

minimum allowable total 

ft 


X 


51-60 


condenser width 





UMAX 

maximum allowable total 

ft 


X 




condenser width (in 
triform three times 





61-70 


single panel width, 
etc. ) 





TIP 

internal fin thickness. 

in 


X 




closed sandwich cone 
or cylinder 

lb/ft 3 




71-80 

RHOIP 

density of internal fin 


X 




material, closed 
sandwich cone or 
cylinder 




8 + n 

1-10 

LTMAX 

maxi, man total condenser 

ft 


X 




length 





11-20 

ALPHS 

solar absorptivity 


If TS 
not given 



21-30 

ALPHT 

thermal absorptivity 


ft 



31-40 

DIINP 

minimum value of DUNP to 

in 

X 



41-50 

0 

be considered 





DIINP 

maximum value of DIINP to 

in 

X 




P 

be considered 





51-60 

DUNP 

increment of DIINP to be 

in 

X 




D 

considered 





61-70 

N 0 

miniman value of N to be 


X 





considered 





71-80 

N P 

maximum value of N to be 


X 





considered 
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INPUT DATA CARD DESCRIPTION 
PRIMARY/ SECONDARY DESIGN PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETERS 

UNITS 

REQUIRED 

+ 

9 + n 

1-10 

N D 

increment of N to be 


X 





considered 





11-20 

WINA 0 

smallest value of fin 

in 

X 





half -width to be 
considered 





21-30 

WINA F 

largest value of fin 

in 

X 





half -width to be 
considered 





31-40 

WINA D 

increment of fin 

in 

X 





half -width to be 
considered 




10 + n 

1 

PUNT 

(see figure 11 ) 


X 



1 

i 
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Cards 1 through (10 + n) may be repeated for different sets of Inputs. The 
next identification card i mm ediately follows the last card (PUMT) of the 
previous input set. 

Radiator material and working fluid properties should be evaluated at the 
average condensing temperature (TC). 

A typical input data sheet for the isothermal radiator design program is shown 
in Appendix C (Figure C-5). 

6.7.2 Output Descriptions 

A typical set of outputs is shown in Appendix C (Figure C-6). A fixed input 
data block is followed by a statement showing the pump power consumed in the 
radiator condenser due to pressure drop. Groups of outputs headed by a 
corresponding sink tenperature value follow. For each combination of DIINP, N, 
WINA, a complete radiator design (consisting of 31 additional values) or the 
cause of a diagnostic test failure is given. The nomenclature used in the 
outputs is listed in the Nomenclature Section. However, several outputs require 
additional explanation. 

MLF 

Unless a value for the thickness (TIF) and density (RHOIF) of the "inner fin" 
(cylinder or cone with closed sandwich construction) is specified, this value 
is zero. 

TTX 


If ua it. negative (a result oi tne rxns alone, providing surricient meteoroid 
protections), the affected designs should be rerun with TTG specified based on 
strength requirements. 

The output messages of Figure 15 (other than complete radiator designs) will 
appear after a particular combination of DIINP, N, WINA if a radiator cannot 
be designed. See Figure 12 for remedies. 
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7.0 PERFORMANCE ANALYSIS PROGRAMS 

The two performance analysis programs axe the H 2 -H 2 O Fuel Cell Direct Radiator 
Performance Analysis Program and the Isothermal Direct Radiator (with subcooler) 
Performance Analysis Program. 

7.1 Thermal Environment Options 

Again, as in the design programs, thermal environments can be specified in the 
form of sink temperature(s) or pair(s) of incident solar (including albedo) and 
incident thermal heat fluxes (see paragraph 6.1 for explanation of incident 
radiation). If heat fluxes are chosen, values for solar and thermal absorptivi- 
ties (ALPHS, ALPHT) must be supplied. Up to twelve simultaneous sink tempera- 
tures (or pairs of heat fluxes) can be considered in one radiator analysis. 

Up to twelve sets of these simultaneous sink temperatures (or pairs of heat 
fluxes) can be analyzed consecutively for any one combination of geometric inputs. 
Within any set, temperatures and heat fluxes cannot be mixed. All sets used 
with one combination of geometric inputs must have an equal number of sink 
values. 

Each sink temperature (or pair of incident radiation values) is assumed to 
affect equal numbers of tubes. Furthermore, if segmentation is to be considered 
to control outlet temperature (see paragraph 7*3*2), each segment is considered 
to "see" only one sink value. 

7.2 Geometric Configurations 


As in the design programs, the input value for PUNT is used to describe tube-fin 
and panel configurations and working fluid class. Figure 11 s ummar izes PUNT 
constituent values for specific geometries and fluid classes. (Note: A closed 

sandwich cone or cylinder must be treated as an open sandwich cone or cylinder; 
see Section 6.2.) 

Segments within any radiator must have equal number of tubes and are treated as 
having individual inlet headers and individual outlet headers. (It is assumed 
that headers have been designed in accordance with the corresponding design 
program. (See paragraph 3.2.3*) 

7.3 Hp-HpO Fuel Cell Radiator Performance Analysis Program 
7*3*1 Diagnostic Tests 

The following tests are performed by the program: 

1. The total hydrogen flow rate, MDG, and the total flow rate (water plus 
hydrogen), MDTG, are tested to see if both values are equal to zero. 

If so, the program will print the output statement: 

BOTH MDG AND MDTG ARE ZERO 


58 


TRW EQUIPMENT LABORATORIES 






and proceed to the next set of inputs, if available. This test 
insures that the mass flow input option ha* been observed properly 
(see paragraph 7»3»3)« 

2. The inlet saturation temperature is calculated and compared to the 
desired outlet mixture temperature, if specified. If the inlet 
saturation temperature is less than the outlet mixture temperature, 
the program will print the output statement: 

TINSA . . . LESS THAN TOUTM 

and proceed to the next set of inputs, if available. 

3. If the i n let Mach number is higher than the maximum specified, the 
program will print the output statement: 

MACH NO TOO HIGH 

and proceed to the next set of inputs, if available. 

4. If the 21 x 21 temperature matrix does not converge within 20 iterations, 
the program will print the output message: 

SLOW RATE OF CONVERGENCE 

and proceed to the next set of inputs, If available. This message 
should not normally appear unless an illogical set of inputs has been 
supplied. 

5. If the outlet temperature of a segment is below freezing, (492°R), the 
program will store as possible output (if more than one segment is 
left) or will print (if only one segment is left) the statement: 

NS'S . . . FROZEN SEGMENT 

and will automatically segment, if possible, to alleviate the frozen 
condition. If no more segments are available, the program will proceed 
to the next set of inputs. 

7.3.2 Outlet Mixture Temperature Control 

In addition to the automatic freezing control of the individual segment outlet 
temperatures, the user has the option of controlling the mixed outlet tempera- 
ture of the radiator-condenser by causing the removal of segments. 

The user can effect segmentation by specifying a number of segment, (S), greater 
than one and by supplying a value for the radiator mixed outlet target tempera- 
ture, (TOUTM). 

If (TOUEM) is higher than the internally calculated inlet saturation temperature, 
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the program cannot analyze the radiator (see diagnostic test 2 under Section 
7-3.1). 


Since removal of individual segments causes a step change in the outlet mixture 
temperature, the program can only bracket the specified target temperature 
(providing the target temperature value falls between the outlet mixture temper- 
ature of the radiator with all segments working and the outlet mixture tempera- 
ture of the radiator with one segment working). 

In trying to prevent freezing, or in trying to bracket a specified outlet 
temperature, the program will remove segments in the reverse order in which 
their sink temperatures (or heat flux pairs) are listed in the input. 

7.3.3 Input Cards and Options 

In order to use the H 2 -H 2 O fuel cell performance analysis program, a set (or sets) 
of input data cards must be prepared as follows (options under sections 7.1, 7*2 
and 7.3 apply) : 
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INPUT DATA CARD DESCRIPTION 


FUEL CELL PERFORMANCE PROGRAM 


COLUMN 

NOS. 


SYMBOL 



OPTIONAL 

UNITS REQUIRED + 


DESCRIP TION 
OR PARAMETER 


Identification card (any 
alphabetical or numerical 
combination) 


Number (n) of sets of 
simultaneous sink tempera- 
tures (or sets of pairs of 
incident solar and incident 
thermal heat fluxes) to be 
considered without program 
restart (up to 12 sets) 


Number (m) of simultaneous 
sink temperatures (or 
pairs of incident solar 
and Incident thermal heat 
fluxes) in each set (up to 
12 values) 


When sink temperatures (TS) 
are given, value for TS; 
when incident fluxes are 
given, any negative number 


When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIS 


When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIT 


Repeat cards 3 through 3 + m for each set of sink temperatures (or sets of 
pairs of incident fluxes) until all are entered. This will end with card 
number 2 + mn + n where n and m are defined on cards 2 and 3, respectively. 
The card in each succeeding set corresponding to card 3, i.e., (4 + m, 

5 + 2m, 6 + 3m, etc. ) must bear the same value as card 3* 


* Right Justify in field (all other inputs under decimal control). 


21-30 



+ All cards are required; only entries are optional. 


6 1 
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INPUT DATA CARD DESCRIPTION 
FUEL CELL PERFORMANCE PROGRAM (continued) 


CARD 

NO. 

COLUMN 

NOS. 

SYMBOL 

DESCRIPTION 
OR PARAMETER 

UNITS 

REQUIRED 

OPTIONAL 

+ 

3 + mn 

1-10 

N ' 

total number of tubes 


X 


+ n 

11-20 

S 

total number of segments 


X 





available (in entire 







condenser) 





21-30 

DIIN 

inside tube diameter 

in 

X 



31-40 

DOIN 

outside tube diameter 

in 

X 



41-50 

WBARI 

total condenser width 

ft 

X 





at inlet 





51-60 

WBARE 

total condenser width at 

ft 

X 





outlet (in triform. 







three times single 







panel width, etc.) 





61-70 

TFIN 

fin thickness at 

in 

X 





condenser inlet 





71-80 

TFOUT 

fin thickness at 

in 

X 





condenser outlet 




4 + mn 

1-10 

TOUTM 

mixed outlet target 

°R 


X 

+ n 



temperature 





11-20 

PM 

total pressure 

psia 

X 



21-30 

ALPHS 

solar absorptivity 


If TS not 







given 



31-40 

ALPHT 

thermal absorptivity 


II 



41-50 

KTH 

thermal conductivity 

BTU/ir-ft-°F 

X 





of tube material 





51-60 

KF 

thermal conductivity 

BTU/hr-ft-°F 

X 





of fin material 





61-70 

ET 

emissivity of tube 


X 





coating 





71-80 

EF 

emissivity of fin 


X 





coating 




5 + inn 

1-10 

FSV 

maximum allowable Mach 


X 


+ n 



number of vapor, only 





11-20 

LC 

condensing length 

ft 

X 



21-30 

MDTG 

total flow rate. 

lb /min 

If MDG =0 





Eq + HgO 


&MDVIN =0 



31-40 

MDG 

flow rate of noncon- 

lb/min 

If MDTG =0 





densable gas, H2 


& SHIN=0 



41-50 

MDVIN 

flow rate of water vapor 

lb/min 

II 





at condenser inlet 





51-60 

TIN 

inlet temperature 

°R 

X 



61-70 

SHIN 

inlet specific humidity 


If MDG =0 & 







MDVTN =0 


6 + mn 

1-4 

PUNT 

see figure 11 


X 


+ n 

* 
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Cards 1 through (6 + mn + n) may be repeated for different sets of inputs. 

The next identification card immediately follows the last card (PUNT) of the 
previous input set. 

WBARI and WBARE are the total radiator panel widths at inlet and exit leader, 
respectively. They could be circumferences or arc lengths (cylinder and cone) 
or they could be the sum of the widths of the three or four individual panels 
of a triform or cruciform, respectively. 

As noted on the input data card description, either the values for MDG and 
MDVXN or the values for MDTG and SHIN must be specified. If values appear in 
all four locations, MDG and MDVIN govern. 

Radiator material properties should be evaluated near average expected saturation 
temperature. 

A typical input data sheet for the fuel cell perfor manc e analysis program is 
shown in Appendix C (Figure C- 7 )* 

7 * 3*4 Output Description 

A typical set of outputs is shown in Appendix C (Figure C-8). 

The printout of the fixed input is followed either by a single output message 
as a result of a diagnostic test failure (see messages and causes for failures 
in Section 7.3.I), or it is followed by one or more blocks of outputs (a single 
block describes the performance of each individual segment) showing the results 
of the radiator analysis. Each block of output is preceded by a single line 
s ummar izing the total radiator performance with the segments printed in the 
block Operating. One block Of output re suits If no nutlet mlvture tenrnenotvn*e 
is specified or if the required outlet mixture temperature is lower than the 
lowest possible radiator outlet temperature (all segments operating). If more 
than one block of output is shown, each successive block depicts the performance 
of the given radiator as segments are removed from operating (trying to match 
an outlet temperature or control freezing). If the required outlet temperature 
is within the range of possible outlet temperatures of the radiator, the last 
two blocks of output describe the performance of the radiator with different 
numbers of segnents working and whose mixed outlet temperatures bracket, most 
closely, the required outlet temperature. 

If it is physically Impossible for the radiator to bracket the required outlet 
temperature, the program will print (S) number of output blocks and step. 

Another output combination results if freezing occurs with a large number of 
segments operating. The program will then print one or more of the following 
statements : 


NS’S . . . FROZEN SEGMENT 
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followed by one or more blocks of output. The first block after the last 
"frozen segment" statement represents the performance of the radiator with 
the highest number of segments operating without freezing. If the mixed outlet 
temperature at this point is above the required, the program will stop. If it 
is not the program will continue to segment to bracket the outlet temperatures, 
if possible. Under no circumstances will the performance of a radiator be 
described which has any segment with an outlet temperature below 492°R. 

Explanation of nomenclature used in outputs is listed in the Nomenclature section. 

7.4 Isothermal Radiator Performance Analysis Program 

7.4.1 Diagnostic Tests 

The following diagnostic tests are performed by the program: 

1. If the 7x7 condensing length (LCC) matrix does not converge within 
20 iterations, the program will print the output message: 

20 CYCLES - - NOT CONVERGED - - LCC MATRIX 
and proceed to the next set of inputs. 

2. The program subtracts the average condensing length solved for by the 
LCC matrix from the total radiator length in order to obtain the 
average subcooling length. If the average subcooler length is negative 
the program prints the output statement: 

STOP NEGATIVE LSC . . . 
and proceeds to the next set of inputs. 

3. If the 33 x 33 temperature matrix does not converge within 20 
iterations, the program will print the output message: 

20 CYCLES - - NOT CONVERGED - - T MATRIX 

and proceed to the next set of inputs. This message should not normally 
appear unless an illogical set of inputs has been supplied. 

4. If the inlet Mach number is higher than the maximum specified, the 
program will cause output statements for the affected radiator or radi- 
ator segment to be accompanied by the statement: 

MACH ... IS TOO HIGH - - WARNING 

5. If, in the process of balancing pressure drops and mass flows in a 
multiple sink system, the condensing length of a segment is greater 
than the total radiator length, the program will print the statement : 

UNSTABLE LC GT LT 
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(where GT stands for greater than), print «.n available answers up 
to this point, and proceed to the next set of sink temperatures 
(or fluxes). 

7'h.2 Constant Inventory or Constant Pressure Option 

The user controls the condenser type by selecting a constant inventory or a 
constant pressure system. This is accomplished by specifying a certain 
combination for the values of three input variables. These are: desired 

average condensing length (LCG), estimated average condensing temperature 
(TCAPG) and desired average condensing tenperature (TCG). If a constant 
Inventory system is to be analyzed, the user must give a positive value to 
(LCG), a positive value to (TCAPG), and he must set TCG equal to zero . If 
a constant pressure system is to be analyzed, the user must give a positive 
value to (TCG) and he must set (TCAPG) and (LCG) both, equal to zero. 

7.4.3 Mixed Outlet Temperature Control 


The mixed outlet tenperature of the condensate dowstream from the exit header 
of the radiator-condenser can be controlled by two methods: l) segmentation 

(the blockage of flow through a radiator segnent or segments), and 2) pro- 
portional bypass (the bypassing and mixing of vapor at inlet conditions with 
the liquid condensate from the condenser outlet). 


Segmenting, bypassing, or no outlet temperature control is specified by the 
values assigned to the desired mixed outlet temperature (TMIXG) and the 
proportional bypass constant (PEP). If no outlet tenperature control is 
desired, both (TMIXG) and (PHP) must be set equal to zero. For control by 


segmentation - the value f*nr t.h e dec-i/rert rni+iet t emp er sture met be aeeisned to 
(TMIXG) and PBP must be set equal to zero . For control by proportional bypass 
the value for the desired outlet tenperature must be assigned to (TMIXG) and 
(PBP) must be set equal to 1.0. 


Since removal of individual segments causes a step change in the outlet mixture 
tenperature, the program can only bracket the specified target tenperature 
(providing the target tenperature value falls between the outlet mixture tenper- 
ature of the radiator with all segnents working and the outlet mixture tenperature 
of the radiator with one segment working). 


In proportional bypass the mixed outlet tenperature (TMIXX) (after vapor addition) 
is calculated by the program to fall within 1.0$ of the specified outlet mixture 
tenperature (TMIXG). 

Input Cards and Options 

In order to use the Isothermal Performance Analysis Program, a set (or sets) of 
input data cards must be prepared as follows (options under 7*1> 7.2, 7*3 apply) : 
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INPUT DATA CARD DESCRIPTION 
ISOTHERMAL PERFORMANCE PROGRAM 


CARD 

NO. 

COLUMN 

NOS. 

SYMBOL 

DESCRIPTION 
OR PARAMETER 

UNITS 

REQUIRED 

OPTIONAL 

+ 

1 

1-80 


Identification card (any 
alphabetical or numerical 
combination) 


X 


2 

1-2 

* 


Number (n) of sets of 

simultaneous sink temper- 
atures (or sets of pairs 
of incident solar and 
incident thermal heat 
fluxes) to be considered 
without program restart 
(up to 12 sets) 


X 


3 

I 

1-2 

* 

! 

i 


Number (m) of simultaneous 
sink temperatures (or 
pairs of incident solar 
and incident thermal heat 
fluxes) in each set (up 
to 12 values) 


X 


4,5,6, 
etc. , 
up to 
3 + m 
(where 
m is 
defined 
on card 
3) 

* 

1-10 

] 


When sink temperatures (TS) 
are given, value for TS; 
when incident fluxes are 
given, any negative number 


X 


11-20 


When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIS 


X 

i 

! 

! 

21-30 
| 

i 

When sink temperatures are 
given, zero; when incident 
fluxes are given, value 
for QIT 


X 

i 

! 

J -L 


Repeat cards 3 through 3 + m for each set of sink temperatures (or sets of 
pairs of incident fluxes) until all are entered. This will end with card 
number 2 + mn + n where n and m are defined on cards 2 and 3, respectively. 
The card in each succeeding set corresponding to card 3, i»e., (4 + m, 

5 + 2m, 6 + 3m, etc.) must bear the same value as card 3» 

* Right justify in field (all other inputs under decimal control). 

+ All cards are required; only entries are optional. 
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INPUT DATA CARD DESCRIPTION 
ISOTHERMAL PERFORMANCE PROGRAM (continued) 


CARD 

COLUMN 


DESCRIPTION 



OPTIONAL 

NO. 

NOS. 

SYMBOL 

OR PARAMETER 

UNITS 

REQUIRED 

+ 

3 + mn 

1-10 

N 

total number of tubes 


X 


+ n 

11-20 

S 

total number of segments 


X 





available (in entire 
condenser) 





21-30 

DIIN 

inside tube diameter 

in 

X 



31-40 

DOIN 

outside tube diameter 

in 

X 



41-50 

WBARI 

total condenser width at 

ft 

X 



51-60 


inlet 





WBARE 

total condenser width at 

ft 

X 



61-70 


outlet (in triform, three 
times single panel width, 
etc. ) 





TFIN 

fin thickness at condenser 

in 

X 





inlet 





71-80 

TFOUT 

fin thickness at condenser 

in 

X 





outlet 




b + mn 

1-10 

LT 

total condenser length 

ft 

X 


+ n 

11-20 

LCG 

(including subcooler) 
specified average con- 

ft 

If TCG =0 





densing length 

BTU/lb 




21-30 

HFG 

heat of vaporization of 

X 



31_kn 

M 

working fluid 

__ l* _ 




•PI 1^4 J maI a 

IV n V 

"'m'^mole 

A 



41-50 


weight 




R 

gas constant 

Ibfft/n 13 ^ 

X 



51-60 

PIR 

reference saturation 

psia 

X 



61-70 


pressure (see para- 
graph 7 * 4 . 4 ) 

°R 




TIR 

reference saturation 

X 





temperature (at PIR) 
(see paragraph 7 * 4 . 4 ) 

BTl^hr-fbvP 

i 



71-80 

KC 

thermal conductivity of 

X 





condensate 





6 7 
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INPUT DATA CARD DESCRIPTION 
ISOTHERMAL PERFORMANCE PROGRAM (continued) 


CARD 

NO. 

COLUMN 

NOS. 

SYMBOL 

DESCRIPTION 
OR PARAMETER 

UNITS 

REQUIRED 

DPTI0NAL 

+ 

5 + ran 

1-10 

RHOL 

density of condensate 

lb/ft ^ 

X 


+ n 

11-20 

VISL 

absolute viscosity of 

lb/ft-sec 

X 





condensate 





21-30 

CL 

specific heat of 

BTU/lb-°F 

X 





condensate 





31-40 

SUFT 

liquid- vapor surface 

lb/ft 

X 





tension 





41-50 

CV 

specific heat of vapor 

BTU/lb-°F 

X 



51-60 

VISV 

absolute viscosity of 

lb/ft-sec 

X 





vapor 





61-70 

GAMMA 

ratio of specific heats 


X 





of vapor 





71-80 

ALPHS 

solar absorptivity 


If TS 







not given 

-4 


6 + ran 

1-10 

— 

ALPHT 

thermal absorptivity 


1 

If TS 


+ n 





not given 


t 

11-20 

KTH 

thermal conductivity 

BTU/hr-ft-^ 

X 





of tube material 





21-30 

KF 

thermal conductivity 

BTU/hr-ft-°F 

X 


i 

' 



of fin material 




l 

31-40 

ET 

emissivity of tube 


X 





coating 





41-50 

EF 

emissivity of fin 


X 





coating 





51-60 

FSV 

maximum allowable Mach 


X 





number of vapor, only 





61-70 

NOS 

number of different sink 


X 





temperature values 





71-80 

PBP 

proportional bypass code 



X 




(see paragraph 7*^*2) 




7 + mn 

1-10 

MDT 

total flow rate 

lb /min 

X 


+ n 

11-20 

XIN 

inlet quality 

r> 

X 



21-30 

TCG 

specified average con- 

R 

If LCG=0 





densing temperature 

r\ 




31-40 

TCAPG 

approximate condensing 

°R 

If TCG=0 





temperature 

°R 




41-50 

TIMTC 

inlet superheat 


X 


51-60 

TMIXG 

target outlet mixture 



X 




temperature 




8 + mn 

1-4 

PUNT 

(see figure 11 ) 


X 

1 

1 

+ n 

* 




i 1 

— L - 
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Cards 1 through (8 + mn + n) may be repeated for different sets of inputs. 

The next identification card Immediately follows the last card (PUNT) of the 
previous input set. 

WBARI and WBARE are the total radiator panel widths at inlet and exit header, 
respectively. They could be circumferences or arc lengths (cylinder and cone) 
or they could be the sum of the widths of the three or four individual panels 
of a triform or cruciform, respectively. 

PIR and TIR are reference saturation pressure and temperature of the working 
fluid to be used in the Clausius Clapeyron equation (see equation A-33, Appendix 
A). They can be taken anywhere on the saturation line; however, due to the 
nature of the equation, more accuracy is obtained if the values are taken close 
to expected operating conditions. It should be noted that these are reference 
values only and do not limit the condenser operation to these levels . 

NOS is the number of different sink temperature (or pairs of fluxes) values. 

It is equal to or less than S (total number of segments). For exarpleT"" if~ all 
of twelve sink temperature values are equal to each other, NOS = 1.0; however, 
for twelve non-equal sink values, NOS = 12.0. 

Sections 7-4.2 and 7-4.3 discuss the special attention that has to be paid to 
LCG, TCG, TCAPG (constant inventory - constant pressure option) and PBP, TMIXG 
(outlet mixture temperature control option), respectively. 

Average fluid and radiator material properties should be taken at TCG or TCAPG, 
whichever is given. Most properties vary only slightly over typical temperature 
ranges that can be expected in any one isothermal radiator condenser and, 
therefore, taking the desired values at the above temperature should introduce 
negligible error. 

A typical input data sample sheet is shown in Appendix C (Figure C-9). 

7-4.5 Output Description 

Typical sets of outputs are shown in Appendix C (Figure C-10). 

Outputs for radiator-condenser performance analyses will be discussed according 
to types of outlet mixture temperature control: l) no outlet mixture temperature 

control, 2) outlet mixture temperature control by segmentation, and 3) outlet 
mixture temperature control by proportional bypass. In all three types a block 
of fixed input data precedes all output groupings. 

Explanation of nomenclature used in outputs is listed in the Nomenclature 
Section. 

7 -4. 5.1 Outputs for "No Outlet Temperature Control" Cases 

Unless any one of the output messages discussed in Section 7-4.1 appears, the 
block of fixed input data for a performance analysis of a radiator without 


69 


TRW EQUIPMENT LABORATORIES 


outlet mixture temperature control will be followed by one group of output 
sets. The group of output sets is headed by a statement giving the average 
sink temperature value. This statement is followed by sets of outputs titled 
"SET NO. 0", followed by "SET NO. 1", "SET NO. 2", "SET NO. 3", up to "SET 
NO. S", (where S is the total number of radiator segnents). Outputs under 
"SET NO. 0" are for an average segment of the radiator-condenser (using average 
condensing length, average sink temperature and average mass flow). Set No. 1 
through Set No. (s) show outputs applicable only to the respective individual 
segment of the radiator (differences in the output values of the sets are the 
net result of the differences in their thermal environments). Set No. (S) is 
followed by a line of outputs applicable to the overall radiator-condenser 
performance. For a no- outlet- temperature-control case, (THETA) and (TMIXX) 
are always zero. (DPTM) will be shown as zero for a single sink temperature 
value (NOS = 1.0) and the value (DPTOT) should be used for pressure drop. 

(TCM) will also be shown as zero for a single sink temperature value (NOS = l) 
and for constant pressure cases, regardless of the number of sink values. An 
average of the TC's shown should be used in these cases. 

For a case where (S) = 1.0 (only one segment) or (NOS) = 1.0 (all sinks equal), 
Set No. 0 will be the only output set (followed by overall radiator values). 

For a one segment radiator, Set No. 0 performance values describe total 
radiator performance. For the multi- segment, equal sink case, Set No. 0 shows 
values typical for each of the segnents. 

If Set No. 1 through Set No. (S) occur, it should be noted that (excluding 
Set No. 0): 

1. The smallest single value of all NUE's and NPG’s is the governing 
overall gravitational capability (any negative value means a gravi- 
tational force in flow direction is required). 

2. The small deviations between individual TC's and their deviation from 
TCG (if applicable) are due to specified limits of matrix convergence. 

3. Deviation between individual DPTOT values are a result of TC 
deviations explained above. 

A p ar ti ally completed typical output block followed by one of the messages 
discussed in Section 7*4.1 is also a possible output combination. 

7.4. 5.2 Outputs for "Outlet Temperature Control by Segmentation" Cases 

Unless the printout of the fixed input is immediately followed by one of the 
messages discussed in Section 7*4. 1, one or more typical output groups headed 
by an average sink temperature (based on the number of operating segnents 
within the group) will follow. It should be noted that diagnostic test f allure 
messages can terminate the output within or after any group. Each output group 
consists of output sets showing values for an average segment case followed by 
sets showing applicable output values of each individual operating segment. 

The last line in each group lists outputs applicable to the overall working 
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postlon of the radiator-condenser. Values for (THETA) and (TMIXX) are always 
zero. (DFTM) and (TCM) are zero for a multi- segment radiator with equal sink 
temperatures. (TCM) will also be zero for a constant pressure case. (DPTOT) 
and the average (TC) should be used, respectively. 

One group of output sets results if the required outlet mixture temperature is 
lower than the lowest possible radiator outlet temperature (all segnents opera- 
ting). If more than one group of output is shown, each successive group depicts 
the performance of the given radiator as segments are removed from operation 
(trying to match an outlet temperature). If the required outlet temperature is 
within the range of possible outlet temperatures of the radiator, the last two 
groups of output describe the performance of the radiator with different numbers 
of segments working and whose mixed outlet temperatures bracket, most closely, 
the required outlet temperature. 

If it is physically impossible for the radiator to bracket the required outlet 
temperature, the program will print (S) number of output groups and stop. 

Successive output groups for a multi-segment radiator with equal sink temperatures 
will contain only Set No. 0 which will be typical of those segments in operation 
at that time. 

The same interpretations as listed in points 1 through 3 in Section 7*4. 5«1 apply 
to each group in the output for a case involving outlet mixture temperature 
control by segmentation. 

7-4. 5. 3 Outputs for "Outlet Mixture Temperature Control by Proportional 
Bypass" Case 

Output groups and set description are identical to those used to describe the 
special outlet temperature control cases in Sections 7*4. 5*1 and 7*4. 5*2 with 
the following exceptions: 

1. Each group of output has an equal number of sets (Set No. 0 through 
Set No. (S) ). 

2. The average sink temperature is only listed once (before first group). 

3. THETA and TMIXX are non-zero and applicable. 

4. The program will continue to vary (THETA )and calculate output groups 
until the value for(TMIXX)is within 1.0# of the specified value for 

(TMIXG)or the program is stopped due to a diagnostic test failure. 

The (THETA) value listed in a group ( other than the last group) is calculated 
based on the values of (TOMIX) and (TMIXX} in that group but is used in calcu- 
lating the following group of outputs; therefore, the initial value of THETA 
is not shown in the first group. 
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Should the program satisfy the outlet mixture target temperature within the 
1.0# limit, the last two groups of output will have equal THETA's with the last 
group describing the performance with this (THETA.) 

Enroute to the final answer (last output group) (THETA) may oscillate and become 
negative. However, for a true answer the finai(THETA)must be positive. If 
this is not so, an unrealistic target temperature (TMIXG) was chosen for the 
particular operating conditions. The output groups preceding the final group 
(desired answers) are printed for information only and may contain unrealistic 
answers. 
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EFFECT OF EHTRAIHMEflT ON FILM FLOW RATE 
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LEHTER 


MEANING 
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1 

central fin 


2 

open sandwich 


3 

closed sandwich 

U 

1 

flat plate 


2 

cylinder 


3 

triform 


4 

cruciform 


5 

cone 
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1 

non-mercury working fluid 


2 

mercury working fluid 
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1 

liquid metal working fluid 


2 

liquid non-metal working fluid 
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REMEDIES IN THE EVENT OF FAILURE TO PASS DIAGNOSTIC 
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PRINTOUTS IN THE EVERT OF FAILURE TO DESIGN 
FUEL CELL DIRECT RADIATOR 

(See Figure 12 if remedies are desired) 



PRINTOUT STATEMENT 

MEANING 

1 

VMIN . . . GT (FSV)(S0W) 

sonic velocity exceeded 

2 

DPLC . . . NEGATIVE 

insufficient frictional pressure drop 

3 

LC ... OUT OF RANGE 

length out of specified range 

k 

W ... OUT OF RANGE 

width out of specified range 

5 

TF . . .*OUT OF RANGE 

fin thickness out of specified range 

6 

FEFF . . . OUT OF RANGE 

fin efficiency out of range 

7 

n/a 


8 

n/a 

i 

9 

STOP-TINSA NOT GREATER THAN 
TOUT 

i specified outlet temperature too high 

■ 

10 

20 CYCLES, 21 EQUATIONS 
NOT YET CONVERGED 

matrix not converged 

i 


* If TF is negative, the actual fin efficiency is slightly greater than 1.0, and 
the rejection of this design was missed by Test 6. 


Figure 13 
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PRINTOUTS IN THE EVENT OP FAILURE TO DESIGN 
ISOTHERMAL DIRECT RADIATOR 

(See Figure 12 if remedies are desired) 


TEST NO. 

PRI1/P0UT STATEMENT 

MEANING 

1 

VIN . . . GREATER THAN (FSV) 
(SOW) 

sonic velocity exceeded 

2 

DPLC . . . NEGATIVE 

insufficient friction pressure drop 

3 

LTX . . OUT OF RANGE 

total length out of specified range 

k 

W . . . OUT OF RANGE 

width out of specified range 

5 

TF . . .*OUT OF RANGE 

fin thickness out of specified range 

6 

7 

8 

9 

FEFF . . . OUT OF RANGE 

n/a 

n/a 

n/a 

fin efficiency out of range 

10 

CONDENSER EQUATIONS 
NON-CONVERGENT AFTER 
20 TRIES 

SUBCOOLER EQUATIONS 
NON-CONVERGENT AFTER 
20 TRIES 

condenser matrix not converged 
subcooler matrix not converged 




* If TF is negative, the actual fin efficiency is slightly greater than 1.0 and 
the rejection of this design was missed by Test 6. 


Figure Ik 
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PRINTOUTS IN THE EVENT OF FAILURE TO DESIGN 
PRIMARY/ SECONDARY DIRECT RADIATOR 

(See Figure 12 if remedies are desired) 


TEST NO. 

PRINTOUT STATEMENT 

MEANING 

1 

VIN . . . GT (FSV)(S0W) 

sonic velocity exceeded 

2 

DPLC . . . NEGATIVE 

insufficient frictional pressure drop 

3 

LT ... OUT OF RANGE 

total length out of specified range 


LCP . . . OUT OF RANGE 

primary condenser length out of 
specified range 

k 

W . . . OUT OF RANGE 

width out of specified range 

5 

TFP . . . *017T OF RANGE 

primary fin thickness out of 
specified range 

6 

FEFF . . . OUT OF RANGE 

primary fin efficiency out of range 

7 

RUE . . . OUT OF RANGE 

gravitational capability out of 
specified range 

8 

WINS . . . OUT OF RANGE 

secondary fin width negative 

9 

n/a 


10 

PRIMARY CONDENSER EQUATIONS 
NON-CONVERGENT AFTER 
20 TRIES 

primary condenser matrix not converged 


SECONDARY CONDENSER EQUATIONS 
NON-CONVERGENT AFTER 
20 TRIES 

secondary condenser matrix not converged 


* If TEP is negative, the actual fin efficiency is greater than 1.0, and the 
rejection of this design was missed by Test 6. 


Figure 15 
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NOMENCLATURE 

(For Analytical Section and Appendices A & B) 


Symbols 

A 

C 

c 

D 

A 

z 

F 

5 

G 

ftsj & 
Vi 

J 

K 

k 

LA 

u 

yv\ 

N 

Hu 

P 


area 

volumetric heat capacity- 

specific heat 

prqpogation velocity- 

tube diameter, inside; diffusion 

differential 

entrained 

geometric view factor, force 

Moody function factor 

flow rate per unit cross-sectional area 

gravitational conversion constant 

heat transfer coefficient, enthalpy 

Joule’s constant 

eddy diffusion coefficient, constant 

thermal conductivity 

length 

Lewis number, ^ / k 

molecular weight 

flow rate 

number of moles 

Nusselt number, 

number of g's 

pressure 


N-l 
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NOMENCLATURE (continued) 

(For Analytical Section and Appendices A & B) 

Symbols (continued) 

ff* - Prandtl number , C ^ ( X 

a - Peclet number, Re Pr, 

Q- heat transferred per unit area and time 
^ - heat transferred per unit time 

- gas constant 

a - Universal gas constant 

- Reynold's number of condensate film, 
a,- Reynold's number, 

IT - tube radius outside 
CW\ - reciprocal mixing 
Sc - Schmidt number^ ju*- /P 
S W\- simple mixing 
T - temperature (absolute) 

- thickness 
\J - velocity 
V - volume 
\A/ - mass 

Weber number of flowing vapor, 


W v 




Wj-" Weber number of condensate film (J^ ^ 
to - fin half width 
X - quality- 

mole faction 


tt 
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NOMENCLATURE (continued) 

(For Analytical Section and Appendices A & B) 

Symbols (continued) 

0C- wave number, thermal diffusivity coefficient, absorptance 
OC C i - wave growth factor 

^ - superheat factors, wave height 
/\ - mass transfer coefficient 
A - change 

£ - film thickness, drop diameter 

£ - thermal emlttance (hemispherical), mass transfer constant, 
unbalance 

© - time 


A- viscosity (absolute) 

- density 

O' - Stefan- Bolt zman constant, surface tension, mass tr ans fer 
constant 

- mission time, shear stress 


V 


viscosity * kinematic 


^> v - two phase pressure drop modulus = Atjp / 

diffusion rate (component 1 into component 2, example) 
si- collision integral 


Subscripts 

O.- albedo 
- bulk 

C - condensation, condensate 
D - diffusion, design 
<2 - exit 
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NOMENCLATURE (continued) 
(For Analytical Section and Appendices A & B) 

Subscripts (continued) 

^ - condensate, friction, fin 

liquid- to- vapor phase change 

G - geometry (diameter) 

H - header 
» 

L - interface 
IV\ - inlet 
- reference 
I NT- integrated 
JL - liquid 


to\ - mixture 
YYVOYA- momentum 
n - neutral 
O - initial, inlet 


6of- 
? - 
9 ‘ 

S - 
Sp- 
^od-- 


outlet 
pressure 
heat transfer 

solar, sink, static, sensible, superheat 
space 

saturation 


T “ total 


TF - two-phase 
■fc - thermal 


V - vapor 


UJ - wall 
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HOMEMCLATORE (continued) 

(For Analytical Section and Appendices A & B) 

Subscripts (continued) 

XX" two digit number referring to nodal point location 
\ - condensable vapor 

z ~ noncondensable gas, vapor film interface 


Superscripts 

t 

- superheat, adjacent 

* 


transition 
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SYMBOLS 

ACR 

ACRP 

ACRS 

ALPHS 

ALPHT 

CL 

CV 

DCMAJ 

DCMIN 

DDEL 

DEHA 

DIEHE 

DIEP 

DIHA 

DIIN 

DIIND 

DIINF 

DIINH 

DIINO 

DIINP 

DIINP D 
DIINP P 


NOMENCLATURE 

(For Users' Section and Appendices C & D) 

DESCRIPTION UNITS 

area of entire condenser (one side) including ft^ 

subcooler, if applicable 

total area of primary condenser (one side) ft^ 

2 

total area of secondary condenser (one side) ft 

solar absorptivity 
thermal absorptivity 


specific heat of condensate BTU/lb-°F 

specific heat of vapor BTU/lb-°F 

diameter of conical panel at outlet ft 

diameter of conical panel at inlet ft 

increment of tube diameter to be considered in 

average inside diameter of outlet header in 

inside diameter of exit header at outlet in 

inside diameter of condenser tube at outlet of in 

primary condenser 

average inside diameter of inlet header in 

inside tube diameter in 

increment of DIIN to be considered in 

largest value of DIIN to be considered in 

inside diameter of inlet header at inlet in 

smallest value of DIIN to be considered in 

inside diameter of condenser tube at the inlet of in 

the primary condenser 

increment of DIINP to be considered in 

maximum value of DIINP to be considered in 
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NOMENQATURE (continued) 

(For Users 1 Section and Appendices C & D ) 


SYMBOLS DESCRIPTION UNITS 

DIINP 0 Minimum value of DIINP to be considered in 

DUNS inside diameter of condensing tube at the inlet in 

to secondary condenser 

DIUK exact inside diameter of tube in 

DISC inside diameter of subcooler tube in 

DMAX maximum inside tube diameter to be considered in 

DMIN minimum inside tube diameter to be considered in 

DOIN outside tube diameter in 

DO MX outside diameter of tube in 

DPEH pressure drop in outlet header psi 

DPIH pressure drop in inlet header psi 

DPLC frictional pressure drop in condensing section psi 

DPLCP frictional pressure drop, primary condenser psi 

DPLCS frictional pressure drop, secondary condenser psi 

DPTM mean static pressure loss across entire condenser psi 

DPTOT overall static pressure loss psi 


EF emissivity of fin coating 

ET emissivity of tube coating 

FEFC fin efficiency in condensing section 

FEFF approximate fin efficiency 

FEEP fin efficiency, primary condenser 

FEF1 fin efficiency of first third of condenser 

FEF2 fin efficiency of middle third of condenser 

FEF3 fin efficiency of last third of condenser 
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1 

NOMENCLATURE ( continued ) 

(For Users' Section and Appendices C S D) 


SYMBOL 

DESCRIPTION 

UNITS 

PSV 

maximum allowable Mach number of vapor, only 


GAMMA 

ratio of specific heats of vapor 


GT 

greater than 


HFG 

heat of vaporization of working fluid 

BTU/lb 

KC 

thermal conductivity of condensate 

BTU/hr-ft-°F 

KF 

thermal conductivity of fin material 

BTU/hr-ft-°F 

KTH 

thermal, conductivity of tube material 

BTU/hr-ft-°F 

LC 

condensing length 

ft 

LCC 

average condensing length 

ft 

LCG 

specified average condensing length 

ft 

LCMAX 

maximum allowable condensing length 

ft 

LCMIN 

minimum allowable condensing length 

ft 

LCP 

condensing length, primary condenser 

ft 

LCS 

condensing length, secondary condenser 

ft 

-LNPO 

the negative of the natural log of the probability 
of no meteoroid puncture in TAU days 


LPMAX 

maximum length of primary condenser 

ft 

LPMIN 

minimum length of primary condenser 

ft 

LSC 

subcooler length 

ft 

LSCX 

subcooler length 

ft 

LT 

total condenser length (including subcooler) 

ft 

LTMAX 

maximum total condenser length 

ft 

LTMIN 

minimum total length 

ft 

LTX 

total condenser length (including subcooler) 

ft 

M 

working fluid molecular weight 

IbmA^mole 
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NOMENCLATURE (continued) 

(For Users’ Section and Appendices C &D) 


SYMBOL 

DESCRIPTION 

UNITS 

MACH 

Mach number of vapor, only 


MGR 

weight of entire condenser, including subcooler 

lb 

MDG 

flow rate of noncondensable gas, Hg 

lb/min 

MDS 

flow rate in individual segnent 

lb/min 

MDT 

total flow rate 

lb/min 

MDTG 

total flow rate, IL, + HgO 

lb/min 

MDVE 

total flow rate of water vapor at condenser outlet 

lb/min 

MDVIN 

flow rate of water vapor at condenser inlet 

lb/min 

MEF 

modulus of elasticity of fin material 

psi 

METH 

modulus of elasticity of tube material 

psi 

MF 

weight of fin 

lb 

MJI 

flow rate of noncondensable gas per tube 

lb/min 

MHS 

weight of all headers 

lb 

MIF 

weight of inner fin (closed sandwich cone or cylinder) 

lb 

MIH 

weight of inlet header 

lb 

MT 

weight of tubes 

lb 

MVE 

outlet water vapor flow rate per tube 

lb/min 

MVI 

inlet water vapor flow rate per tube 

lb/min 

N 

total number of tubes 


N D 

increment of N to be considered 


N F 

maximum value of N to be considered 


N 0 

minimum value of N to be considered 


HD 

increment of N to be considered 


HDEL 

increment of N to be considered 
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NOMENCLATURE ( c ont inued ) 
(For Users* Section and Appendices C & D) 


SYMBOL 

DESCRIPTION 

UNITS 

NF 

largest value of N to be considered 


NMAX 

maximum value of N to be considered 


NMIN 

minimum value of N to be considered 


NO 

smallest value of N to be considered 


NOS 

number of different sink temperature values 


NPG 

gravitational capability based on multiple tube 
stability 

g's 

NS*S 

total number of segments operating 


NUE 

gravitational capability based on film transport 

g's 

NUEG 

minimum gravitational capability 

g's 

PBP 

proportional bypass code (see paragraph 7»^*2) 


PC 

average condensing pressure 

psia 

PIR 

reference saturation pressure (see paragraph J.h.k) 

psia 

PM 

total pressure 

psia 

POMIX 

outlet water vapor partial pressure at TOMIX 

psia 

PPWR 

equivalent pump power consumed in radiator (assumes 
100$ efficient pump - not applicable to compressor 
systems) 

HP 

PUNT 

tube-fin, panel and working fluid description 
(see figure 11 ) 


OFT 

total fin heat rejection 

BTU/hr 

QFTC 

fin heat rejection in condensing section 

BTU/hr 

QFTOT 

total fin heat rejection 

ETU/hr 

QSC 

subcooler heat rejection 

BTU/hr 

QTOT 

total heat rejection 

BTU/hr 

QTOTC 

total heat rejection in condensing section 

BTU/hr 
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NOMENCLATURE (continued) 

(For Users' Section and Appendices C & D) 


SYMBOL 

DESCRIPTION 

UNITS 

QTOTP 

heat rejection, primary condenser 

BTU/hr 

QTOTS 

total heat rejection in subcooler (not applicable 
to primary/secondary) 

BTU/hr 

QTOTS 

latent heat rejection, secondary condenser 

BTU/hr 

QTT 

total tube heat rejection 

BTU/hr 

QTTC 

tube heat rejection in condensing section 

BTU/hr 

QTTOT 

total tube heat rejection 

BTU/hr 

R 

gas constant 

lb f ft/°R lb^ 

RHIF 

density of internal fin material, closed sandwich 
cone or cylinder 

lb/ft 3 

RHOF 

density of fin material 

lb/ft 3 

RHOH 

density of header material 

lb/ft 3 

RHOIF 

density of internal fin material, closed sandwich 
cone or cylinder 

lb/ft 3 

RHOL 

density of condensate 

lb/ft 3 

punrn 

iVuvx 

>4 4 4-, ."U 

<uL0A10 J. UJ U1 UUUC lUCLUCX 4.0JL 

lb/ft 3 

S 

total number of segments available (in entire condenser) 


S*NS 

number of segments operating 


SHIN 

inlet specific humidity 


SHOUT 

specific humidity resulting from mixture of outlet 
flows of all segments 


SOW 

sonic velocity of the vapor, only 

ft/sec 

SUFT 

liquid-vapor surface tension 

lb/ft 

T 

temperature 

°R 

TAU 

mission time 

days 

TC 

average condensing temperature 

°R 

TCG 

given condensing temperature 

°R 
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NOMENCLATURE (continued) 

(For Users* Section and Appendices C & D) 


SYMBOL 

DESCRIPTION 

UNITS 

TCAPG 

approximate condensing temperature 

°R 

TCM 

mean condensing temperature 

°R 

TF 

fin thickness 

in 

TFIN 

fin thickness at condenser inlet 

in 

TFMAX 

maximum allowable TF fin thickness 

in 

TFMIN 

minimum allowable fin thickness (both fins in a 
closed sandwich non-cone) 

in 

TFOUT 

fin thickness at condenser outlet 

in 

TFP 

fin thickness, primary condenser 

in 

TFS 

fin thickness, secondary condenser 

in 

TH 

given header wall thickness 

in 

THETA 

fraction of inlet flow, by-passed 


TIF 

internal fin thickness, closed sandwich cone or cylinder 

in 

TIMTC 

inlet superheat 

°R 

TIN 

inlet temperature 

°R 

TINSA 

inlet water vapor saturation temperature 

°R 

TIR 

reference saturation temperature (at PIR) 
(see paragraph 7.4.4) 

°R 

TMIXG 

target outlet mixture temperature 

°R 

TMIXX 

temperature resulting from mixing of by-passed vapor 
and condensate from condenser 

°R 

T0M3X 

temperature resulting from mixture of the outlet 
flows of all segments 

°R 

TOU 

individual segement outlet saturation temperature 

°R 

TOUT 

outlet fluid temperature of individual segment 

°R 

TOUTM 

mixed outlet target temperature 

°R 
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NOMENCLATURE (continued) 

(For Users' Section and Appendices C & D) 


SYMBOL 

DESCRIPTION 

UNITS 

TS 

sink temperature 

°R 

TTG 

given tube wall thickness (will cause by-pass of 
meteoroid protection requirement) 

in 

TTP 

tube wall thickness, primary condenser 

in 

TTX 

tube wall thickness 

in 

T10 

saturation temperature l /6 of the way through the 
condenser 

°R 

T20 

saturation temperature l /2 of the way through the 
condenser 

°R 

T30 

saturation temperature 5/6 of the way through the 
condenser 

°R 

VIN 

vapor velocity at inlet 

ft/sec 

VISL 

absolute viscosity of condensate 

lb/ft- sec 

VISV 

absolute viscosity of vapor 

lb/ft-sec 

VME 

velocity of mixture at condenser outlet 

ft/sec 

VMIN 

inlet mixture velocity 

ft/ sec 

W 

total condenser width 

ft 

WBARE 

total condenser width at outlet (in triform, three 
times single panel width, etc.) 

ft 

WBARI 

total condenser width at inlet 

ft 

WEREX 

condenser total width at outlet 

ft 

WERIX 

total condenser width at inlet 

ft 

WIN D 

increment of fin half -width to be considered 

in 

WIN DEL 

increment of fin half -width to be considered 

in 

WIN F 

maximum value of fin half -width to be considered 

in 

WIN MAX 

maximum value of fin half -width to be considered 

in 
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NOMENCLATURE (continued) 

(For Users' Section and Appendices C & D) 


SYMBOL 

DESCRIPTION 

UNITS 

WIN MIN 

minimum value of fin half -width to be considered 

in 

WIN 0 

minimum value of fin half -width to be considered 

in 

WINA 

fin half -width 

in 

WINA D 

increment of fin half -width to be considered 

in 

WINA F 

largest value of fin half -width to be considered 

in 

WINA 0 

smallest value of fin half -width to be considered 

in 

WINS 

fin half -width, secondary condenser 

in 

WINX 

fin half -width at inlet 

in 

WINXX 

fin half -width at inlet 

in 

WMAX 

maximum allowable total condenser width (in triform 
three times single panel width, etc.) 

ft 

WMIN 

minimum allowable total condenser width 

ft 

WOUX 

fin half -width at outlet 

in 

WOUXX 

fin half -width at outlet 

in 

XIN 

inlet quality 




Consider fin nodal point 24 (second zone, fourth nodal point) of a typical 
condensing section (see sketch below and Figure 4 of text). 



(The nomenclature used in Appendix A is identical to that used in the 
Analytical Section, see Nomenclature Section.) 

For steady state conditions, the simulation of heat flows around nodal point 24 
is equal to zero: 


— "kf (T 23 ~ T 24) conduction from 23 to 24 

. O f.T 




3* 


w 

+ 5 

tf K, 

< t i 4 - T 24 ) 
Lc 

T 

conduction from 14 to 24 

3 

t f K f 

( T 24 ~ t 25^ 
5 w 
“ 25 

conduction from 24 to 25 

w 

" 5 

*t % 

(T 2 4 " t 34^ 

conduction from 24 to 34 


h. 

3 
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w t . . net radiation 

“ 2 r T ^ ^ f P 24-*SP ( t 24 " T sink) exchange between 

? J 24 (both sides) 

and space 

= 0 


Note: Conduction through fin, perpendicular to fin faces, is assumed infinite. 


These summations are written for all the applicable nodal points and solved 
simultaneously to obtain the temperatures. 
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APPENDIX A-2 

RADIATION BLOCKAGE FACTORS 


Consider a central fin configuration as shown below (also see Figure 4 of text). 



From reference 1 6 , the view factor from an element dx to tube 1, F^ is: 




sin 


$ 


1 


(A-l) 


assuming an infinitely long tube. This latter assumption introduces negligible 
error since reference 27 shows that the change in view factor with tube length 
is negligible once the tube length exceeds the width of dx. 


Evaluating F to 

ofc* $ ! 

sin §3 


dx 




Similarly: 


dx 


2 


v/(r + x ) 2 - r 2 
r + x 


1.0 




sf (2 w + r - x ) 2 
2 w + r - x 



(A-2) 


(A-3) 


In both cases, the fin thickness is assumed negligible from a geometrical 
standpoint. The view factor of the total fin width 2 w to tube 1 can be found 
by integrating: 
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Using: 



1_ 

2v 



< r ax — i> 




C08 ' 1 ( 1 l 2 » ) 

r 


A j F j-»-k “ \ F k-^d 


k = n 

z 

k = 1 


F 


J-k 


(A-4) 


the following can be derived: 

F = - - F 

1-^2 w IT r 2v-*-l 

F 2 w SP = 1 “ 2F 2 w-*-1 



= ^j^ + r( 1- + 1 ) + 2 c 08 ’ 1 ( x + 2w )J (A-5) 

Equation A-5 represents the geometric viev factor of a tube (for a central 
fin- tube configuration) to space. 

For an open or closed sandwich tube-fin configuration: 


A-U 
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and substituting into (A - 6 . ) yields : 


dx 


Similarly: 


P dx 


. i r 

'1 2 L 

_i r 

2 2 L 


1 - 


(r+xT 


(r + x) 2 + r 2 


] 


1 - 


(2 v + r - x) 2 - r 2 
(2 w + r - x) 2 + r 2 - 


(A-7) 


(A-8) 


Again, the view factor of the total fin width 2 w to tube 1 can be found by 
integrating : 



2 w 



2w i 

^ ( F dx—l) 

dx 


J 

o 



r_ 1 

r -i / 

2w \ 

IT "1 

2w 

1 tan f 1 + 

“ ) 

- rj 


Again, by view factor algebra: 


F = - 

l-*-SP TT 

1 

" TT 


( 1+ f) P SP-*1 

j] 1 + ton " 1 ( 1 + ~ ) 



(A-9) 


(A-10) 


Equation (A-10) represents the geometric view factor for tubes to space for open 
sandwich construction (not applicable for closed sandwich). 


The exact expression for the view factor of a fin element between limits of 
x-^ and x 2 to both tubes 1 and 2 can be found by integrating the following 
equation: 

x 2 

F V2-1.2 = f + ^ (A ' U) 

X 1 

For example, the resulting expression for a typical nodal point between x^ = 
and x 0 = 3^ (nodal point 4) for a central fin configuration yields: 

10 
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Obviously, equations for fin segnents-to-tube view factors similar to equation 
(A- 12) are lengthy and would add vast complexity to the simultaneous nodal point 
equation solution. 

If it is assumed that the view factor from a fin segnent to both tubes is 
constant between the limits of and X2 and equal to the point to tubes view 
factor at the {xj+x^)/2 location, the following simpler expression could be used: 


F x 1 x 2 -^ 1,2 “ F dx -^1 + F dx -^2 


(A- 13) 


For the location investigated in equation (A- 12), the view factor would equal 


F w_ £w 
10 ' 10 


vl 

1 r 

I v + 

1,2 

i 

2 ^ + .4 


\J 3.24 + 3.6 1 


(A-14) 


2 y + 3*6 


A conqparison between values for view factors using equation (A-ll) and those 
obtained using equation (A-13) was made. 

Figure A-l (Figures for Appendix A can be found at the end of the appendix) shows 
the comparison of the Integrated values of F for the four sections compared with 
the value at the center assuming r/w = l (considered an upper limit). 

Evaluating now the view factor 3 to 1 (largest error) for r/w = 0.1 (considered 
a lower limit) results in: 
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Integrated Value: .1576 

Mid-Point Value: .1274 

$ Error = 19.16$ 

Without going through all the possible values of r/w, it appears as if the 
maximum error in fin-to-tube view factor will occur at low r/w in section 3 
(closest to tube). Since this error will probably not exceed 20$ and since it 
affects only about 20$ of the total heat rejected from the condenser, the 
maximum error in overall, condenser heat rejection should not exceed 4$ if the 
mid-point view factors rather than integrated ones are used. 

Figures A-2 and A-3 list these mid-point view factors for central fin and open 
and closed sandwich. 

In the case of the closed sandwich, furthermore, there exist fin-to-fin view 
factors. It can be appreciated that, if all possible fin-to-fin view factors 
are considered, the resulting sixty-four coefficients would unnecessarily 
complicate the program. We will, therefore, examine the array and see if any 
may be neglected. 

From reference 1 6 the following can be written: 



B 

F dA!-^Ap " , I 2 

1 d 4 \| 1 B 


Applying this equation to the view factor from section 3 on one fin to section 4 
of the opposite fin (remembering we have a closed sandwich) results in: 


r/w 

f 3 - *“4’ 

• 5 

.096 

.2 

.203 

.1 

.270 


Now investigating the view factor from 3 to other opposite areas for r/w = .10 
(worst case) results in: 


Areas Considered 

View Factor 

F 3-*-4’ 

.270 

F 3-**5' 

.078 

F 3-6’ 

.021 
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Based on these results, it is felt that fin-to-fin view factors for the closed 
sandwich beyond one section to either side of the section in question are 
negligible. 

The required view factors then are: 



However, as explained in paragraph 3*1*2, the overall effect of these 
fin-to-fin view factors in the closed sandwich construction were considered 
negligible and no thermal interaction was considered between the fins. The 
view factors of Figures A- 2 and A- 3, however, are calculated and used in all 
the programs. 
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APPENDIX A- 3 

PANEL-TO-PANEL VIEW FACTOR 


Triform 

From reference 1 6 the following equation can be written: 



1 

2 

1 

2 


r * + L 

L‘ ~ fT- 
[*■ 


L cos 60 


L cos 60°) 2 + (L sin 60°) 2 
x + .5 L 


let y = x/l 
F dx -*-l = \ 


|(x + .5 L) 2 + .75 L 2 


[i. ■] 

L Nl(y +.5) 2 +.75 2 J 


■] 

-] 


2^1 l 


Let u = y + .5 


. i f 1 i fi . r +-•? -1 

L ^ 2 L >|(y + .5) 2 + .75 2 J 


L dy 


(A-15) 


(a-i6) 
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Equation (A-17) is plotted as the lower curve in Figure A-4. 
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APPENDIX k-k 

HEAT AMD MASS TRANSFER COEFF ICIENT 
FOR HYDROGEN AMD WATER VAPOR 


In determining the heat transfer from a two- component condensing mixture, it 
is convenient to determine the sensible heat transfer coefficient then, 
realizing the potential for latent heat transfer is coupled to the potential 
for sensible heat transfer through the Clausius-Clspeyron equation, dete rmine 
the ratio of latent to sensible heat transfer coefficients. 


, then, the 

sensible 

coefficient : 


/ v 8 

x v • 3 

l = .0265 

( 

(°a) 



\ k / 

= .0265 

G* 8 ^2 

0-3 


D* 2 

>«- 5 

m^ + mg 

IQg 

( 5 - + i) . 0 , 

TTD 2 /^ 

TTD 2 /1 

'mg ' 2 ' mg 

= 0 5s ( 

pl 1 

«2 r 1 

2 % l 

P m' V 

2 R i L(p„/Pi )- 1 


.% h - .0265 ^l 8 (h \ ' 8 r i -1 * 8 *'V 3 

D-2 ^rJ L - X J A * 


See expressions for C and JLL as functions of T, Pm on following pages. 
Viscosity of Mixture 

Wilke's equation for binary mixtures at low pressure (reference 28) 



/ / . v . . r 


+(y 2 / J 'i) ? 


1 ^l/^) $ 21 

& f\t _ sV T 2 


$ = [ 1 + (Ife/^L ) 

12 2 tT (l + 
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x _ r ^ o^fe) 

*21 i — ,1 

2 f2 (1 + ^/Mj/ 


il 2 


y and y 2 are the mole fractions of the components, therefore, 


^2 _ ^2 F m ~ P 1 
y l P 1 P 1 


P m 

-a - 1 


Note: y x = N^/l^ = Pj/P m 


P m' P l l P n/ P l) - 1 


From the Clapeyron relation, 


P 1 = P lr 


h fyj j r T_ 

R X T L T ii 


? m P m / h fvi J \ ( , T \ 

S ' T lr ) 


Note : exp A = < 2 . 


which makes yg/y^ a&d y^/yp functions of T and P m> as a result, jLL - function 
(T, P m ) for given components 1 and 2. 


Decific Heat of Mixture 


m l C 1 + ”2 c 2 
®1 ®2 + 

Ci + (nig/mj C2 

1 + ( m 2/ m l) 


For a gaseous mixture of perfect gas, 

PjK = m l ^ 

“2^ 

“2 - P 2 jfe _ (Pm ~ fiL) Mg 
m l P 1 M 1 P 1 M 1 


. 1 ) ^ 

**l " V p i ' Mj. 
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C 1 ■*! 

m -4 

C 2 

1 + l 

[<V p i) - 1 

] 


(A-20) 


Mixture Thermal Conductivity 


"• 2 ^ k sm + W 


(Reference 2d) 
k l k l +k 2 k 2 and ^ ' 


*2 


x l’ x 2 = 10016 frac ‘ tions 


In terms of our nomenclature: 

= % k l + N 2 k 2 . 

N^+Ng 


k = 


s-rm 




Note: P, is a function of T ( Clapeyron ' s relation), therefore, k becomes 

a function of temperature. m 


2k m 


2 k 

m 


^,( p - ~ P M K,* i 

p m ' P B ’ *j*m. *i + < p m - Pi) Aw 


7= < k i - V ♦ k 2 + 




(A-21) 


Combining equations A-l8, A- 19, A-20 and A-21 for a hydrogen-water vapor mixt ure 
(saturated) results in: 

» * ik) 

where: h is in Btu/hr-ft 2 -°F 

G is in lb/ft 2 - hr 

D is in ft 

f(T) is in Btu sec*5 

hr* 7 ft* 2 °P lb*° 


f (T) is plotted in Figure A-5. This relationship will be used later. 

We will now analyze the analogy between heat and mass transfer. For the analogy 
to apply, P r » S c or S c /P r » oe./D (Lewis Number) 3 1. Ibis situation is often 
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encountered In gas mixtures. The Levis number for a mixture of ^ - ELO will be 
determined later for substantiation of this proposed method of analysis. 

The following assumptions are made: (a) the partial-pressure difference within 

the boundary layer should be small contrasted to the average fluid pressure; 

(b) the flow and heat transfer are not influenced by the mass transfer which 
implies that the properties appearing in the heat transfer equation are 
practically the properties of fluid 2 (noncondensable). In summary, fluid 1 
(condensable) should be in low concentration, and the temperature at the wall 
should not be much less than the saturation temperature of the condensable in 
the stream. 

It is the purpose of this analysis to determine the ratio hp/h by analogy 
between the heat and mass transfer. This quantity is required in the heat 
balance equation. 

By definition: 

^ = m lw R 1 T 


Q 

h = — 

T - T 
w 

In order to relate the ratio “oi/%> to the concentration and partial pressure 
ratio (condensable to noncondensable), the following analysis is performed: 

Assume perfect gas laws to hold for each constituent, 

P 1 V 1 = W 1 R 1 T 1 8114 P 2 V 2 = W 2 *2 T 2 


(applicable when the tenperature difference 
in the boundary layer is small contrasted to 
the absolute temperature) 


In terms of molecular weight and the universal gas constant £L , 
P 1 V 1 - ^ - ^ K 2 I 2 

Mh Mg 


M lb/mole 
W lb 

and w/M = N (number of moles). 

In a mixture V-^ = V^, T-^ = Tg then, 

£l Mg Ni 

P 2 =M 1 W 2 =N 2 
for inlet conditions 
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!ai 

*2 


m. 


l ol 


“2 


% 

Ml 


and 


*ol 


Ife (%) « 2 
(HgO) = 18 
mg then 


Pol 


2 

18 


1 

9 


5 

N_ 


ol 


Thus, for equal weight quantities of constituents 1 (H_0) and 2 (Hg), the con- 
centration of 1 can be considered small contrasted to 2. 


We will now compute the Levis Number 
Sc 


'12 


^2 ^ 


= 1.18 -^2 




^12 
(T 2 


V 

+ Vq 


(Reference 28) 


Example: 

Assume T = 300°F, 760°R, 422°K 
(l) water vapor (2) hydrogen 

<T 2 = 2.968 A € 2 / k = 33.3°k 

cr^ = 2.649 A € x /k = 356°K 

= | (2.968 + 2.649) - 2.808 


Note 


• (> ‘if- * 


K K 

€ 12 

K 


2__fl 

K 


= 1.09 x 10 


‘12 


V7 7 ki_ 

= ^ € l e 2 > €12 * 


xi 


. K T 

••e 


422 


12 


1.09 x 10 2 


'i fTT 


= 3.88 


-Q» d = . 89, = 18 and Mg = 2 (Reference 28) 
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KT = is . 12.7 

e 2 33.3 

-Q- v = .8023 (Reference 28) 

o « Q 9 ( 2.808 \ 

Sc 12 - 1.18 <8q23 [ 2 . 96 S) 


( 


18 


18 + 2 



Sc 12 = 1.18 x l.ll x .895 x .948 * 1.11 


Computing the Lewis Number: 


Sc -] 2 i • 11 


Pr, 


.686 


oc 2 

= 1.62 * — - 
D 12 


= Lewis Number 


J 12 = 


OC 

1.62 


= - 3~ . ^ = 6.8 ft^/hr = 1.89 x 10 " 3 ft^/sec 


1.62 


The Lewis Number is not far from 1, therefore, the analogy between heat and 
mass transfer should be applicable. Another consideration is to compute the 
Pr number for the mixture. 


Based on the analogy between heat and mass transfer, the following relationships 
are assumed: 


Nu = C Re 8 !* 13 
/\ = C Re a Sc b 

where A is the dimensionless mass transfer coefficient 


A = 


1^1 

D 12 


Nu a 


hpL 

k 


Dividing (A-23) by (A-22) 


A 

Nu 



b 


D 12 h 



b 


(A-22) 
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Since oC= 


KdA-W* I^DS. 

\ Pr 


>c we can also write: 


= D 12 


3 12 b 
I— (Le) 

cpc 


or, In terms of properties, 


^c D12 


(*) “ 

i_ ( _L _) b_1 JL / D 
^ ' ^12 / (oc) b h 


\l-b 

^2 \ 1 

k ) (f c) 


It is recommended that mixture properties be used for k , P and c for greater 
accuracy. The properties comprising h^/h may be computed as follows: 


Diffusion coefficients: 


d 12 = 


1.858 x lO -3 T 2 


[V^l 

L J 


(Reference 28) 


<Ti2 2 I2. 


where 


0-12 =2 (0‘ 1 + (I^) ^f-L (HgO) = 2.649; <T 2 (Hg) = 2.968 
-Q- d = f (KT/€ -j^) (Reference 28) 


1^-2 


finding 


K K 


(Reference 28) 


since 


(t 


1 ^2 

± x — £ 


i^i ^2 


Compute ( c) for a mixture of constituents 1 and 2, 

( £ c ^m “ C m (volumetric heat capacity) Btu/ft 3 -°F 
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c m = C 1 + c 2 


CL = 2J: + P 2 °2 
E 1 1 Rg T 


(both constituents 1 and 2 occupy the same 
volume, therefore, the volumetric heat 
capacity is obtained by addition of the 
heat capacity of each) 


P m = P i + P 2 


(Pc) . sa + ( r - • p i > °2 

' m R x T R 2 T 


?1 Cl + p m C2 _ p l C2 
R^ T R 2 T R2 T 




Note that £. = R 1 M-j_ = Rg Mg 


( o c ) . T £1 / C 1 % _ C 2 **2 \ + C 2 **2 1 

m t L p m ' a S. ' a -» 


Cl Ml 2 C 1 
C 2 *> * C 2 


e «>. - [5: Ce* - c 2 *) ♦ c/] 


C 2 = 7 diatomic gases (Hg) 

C]_ = 8 triatomic gases (HgO) 
For 1^(2), HgO(l) mixture 


? c> " = Fa [ T m (8 - 7)+7 ] - h ( J *t) 
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TRW EQUIPMENT LABORATORIES 


In sunaary, to compute hp/h use 


V“ - 

l**) 1 * -i-b 
V k / ((c) 

(A-24) 

insert mixture properties for p, c and k 

using 

|s> c = 


2 k = 

jr ( " k 2^ + k 2 + 

m 

r h (i. -m* -^r 1 

L P m \ fcL *2 ) k 2 J 

°12 = 

1.858 x 10“ 3 T 3 / 2 

1 r / «i + t \ 4 1 

p m 12 2 D 

J L V % Mg >/ J 


where D » f (T) see Figure A-6. 

Figure A- 7 shows equation (A- 24) plotted as a function of P m and temperature 
at saturation. 


We will now combine the heat and mass transfer considerations. 


The mass transfer to the wall due to condensation of component 1 when is 
below the dew point of 1 is given by 


m lw 


^ (Fl - P lv> 
R X T 


(Rote: perfect gas assumed) 


(A-25) 


The latent heat transfer associated with the mass transfer can, therefore, be 
expressed as 


^fvl = 


m lw kfvl = 


*0 bfvl 
T 


( P 1 - P lw) 


The sensible heat transfer portion of the total heat transfer is 


Qs - h (T - I*) 
Adding the two gives 

Q = Qfvl + Qs = h ( T 


I.) * ^3: 

R x T 



A- 21 
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Q»h(T-T) l + 


hfvl (Pi - P lv ) 


h R x T 


;t - T*) 


(A-26) 


The ratio h^/h can be determined from the analogy between the heat and mass 
transfer mechanism. This analogy applies if component 1 is in low concentration 
in component 2. 

If the partial pressure difference between the stream and wall is not too great 
as a result of the temperature difference being am»i i when compared to the 
absolute temperature, then the expression, 

( p l - p lw)/( T - *»> 

in (A-2 6 ) can be made equal to dP^/dT by utilizing the Clapyeron equation as 
follows : 


P 1 - P lw _ **1 
T - T„ dT 


P 1 bfvl J 
R x T 2 


Combining equations (A-26) and (A-27): 


Q = h (T - T w ) [l +( — ) Flh - f ^ J 1 

L \h / R x T R x T 2 J 

= h (T - T w ) [l.Q>) 

= h (T - T„) [ 1 + (^) F (T)J 


bfvl F 1 J 
R 2 T 3 


. (778) (lMQ hfy-f Pj_ 

85. 7 2 T 3 


(A-27) 


= 15.25 


kfvl p l 
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where: 

h fvl is in Btu/lb 
P 1 is in lb/in 2 
T is in °R 

F(T) is in Btu/ft 3 -°R 

Figure A-8 shows F (T) platted as a function of P and T at saturation. It 
can be seen from Figures A- 7 and A-8 that m 


^ F (T) >» 1 


so: 


where: 


Q = h (— ) F (?) ( T - T w ) 


1 G2* 8 

60 

1 G^ 8 

60 _ .2 

D 


f (T)(^)f (T) (T - Ty) 

f (t) At 


Q is in Btu/hr-ft 2 
G is in lb/ft 2 - hr 
D is in ft 

F (T) is in Btu/hr-ft 2 - °F 
AT is in °R 


F (T) is plotted in Figure A-9 as a function of P_ and T at saturation. 

m 

Substituting representative values of G and D in the above equation for Q results 
in combined coefficients of 1000-2000 Btu/hr-ft^-°F. Since this high a value of 
combined h will have small resistance to heat flow when compared to the wall and 
radiation resistance, its value will be taken as constant at 1000 Btu/hr-ft^-°F 
and not entered in the programs as a function of JjTL and T. 
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constant 


Mass Balance: 

mg = constant 

“l + 1 * m ol 

dm^ = - dxn^^ 

combining mass and heat balance gives 

dq = mgdhg + m^dhi + b^dn^ + (b^]_ - i^) dh^ - ^fl 
dq = nigdhg + o^dh^ + (hi * hj^) dj&i + (iig^ * db^^ 
hi - C! (T' - T) + hjy! + hf! 


(A-28) 


and 


also 


dhi = Ci (dT' - dT) + dh^i + dh^i 


dhg = c 2 dT' 

substituting these into (A- 28 ) ve have 

dq « mgCgdT' + miCi (dT‘ - dT) + midh^i + midhji + Ci (T' - T) 
dmi + h fvl < 3 ®L + (“ol " *1) ^^fl 


and 


nigCg dT' = mg c 2 dT' - mgCg dT + mgCg dT * 
d (T* - T) -J 


[“2 


®2 BgCg 


dT 


dT 


a r d (T' - T) d f miCi (T' - T )] /._ 

dq =) aigcg + moi c fi + sigCg + dT ( dT + 

hfvl ^l + m l dh fvl 

a, - (nac, (1 + * ft' - t) ) + ^ C fl (1 ♦ ifaafr' - T S ) dT 

{ ar n»o Cf idT '3 


hfvl d»L + *1 <%vl 


Let T' - T = AT 


A- 25 


d C m l c l ATg] 
m ol c fl d T 


dq = |m 2 C 2 (l + — s ) + nio! c fl (l + 


bfvl *“1 + m l dh fvl 


dAT s = (1 - a) A T sg and d L m l c l A T s] = nu, c, ^T 

/I fp A m 'OX X ji" 


1 - a 


Therefore, 


define 


dq = jm 2 c 2 (1 + [l - a)-^ 2 ) + mol c fl (l + ^ |l 

2 ^ 2 )J dT + h tvi dm i + m i 

6 = 1 + (1 - a) ^52 
\2 At 

f(l)-(a)i]ft!ao 

c fl L hlJat 


"fl U m ol J AT 

The as suction is made in the programs that a — o (saturated outlet) 
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^ = 1+ &) ST 2 

and the heat balance becomes 

dq = (n^cg ^ 2 + “ol c fl $ l) dT + ^1 *“1 + m l d^fvl (A-29) 

The amount of saturated phase 1 contained in component 2 depends on the tempera- 
ture level. Thus Oh/ng is a function of the temperature . This relationship can 
be established by the equations of state. Assuming perfect gases for constituents 
1 and 2, we have 

a* PiVi R 2 T 2 

®2 *1 T 1 P 2 V 2 

In a gaseous mixture in thermal equilibrium T. = T 2 , V, = V 2 and by Dalton’s 
Law of partial pressures P m = P^ + P 2 , therefore, we obtain 

m 1 Bg Pj_ R 2 Pj_ 

"T = % *2 = % ( p m ~ p l> (A " 30) 


where P-j_ is a function of T for saturated conditions of component 1. Thus 


“1 

- f (T) 


In order to combine (A- 29) and (A- 30) differentiate (A- 30) as follows: 

^ (F m - p x ) - («g 2s ) p x 

. % F,®i 

dmn = nu _£ _S — ±_ ? 

^ Rl (P m - Pi) 2 

Combine (A-3l) with (A-29) eliminating dm^ and m^ 

d 4 - (nac-, $ 2+ m Dl c fl $ ]) « ♦ Vx “2 (iv^) 2 + 

biq — ( Fl . \ d h^ 1 
^ R x lP m - P 1 / ^ Vl 


(A-31) 


(A-32) 


The relationship between T and P^ for saturated conditions for constituent 1 
can be established by the Clapeyron relation, namely. 
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dPl _ h fvl J dT 

*T R i ^ 


(A- 33) 


(Note: In this form of Clapeyron's relation, a perfect gas is assumed and also 

the specific volume of the liquid phase is neglected when contrasted to the 
specific volume of the vapor phase.) 


Combining equations (A- 32) and (A-33) and realizing that: 

aVi’f i^- 1 ) dT 

' a ^ 1 sat 


results in: 


dq = dT 


{ (mgCgftg + mo! c fl ^ L ) + mg — -i - 

r 1 - 1 ) 

J±\ . 2 J. p m/ p l l ) 

T / sat 1 RiT 2 (p^ . ijj 

= f m 2C 2 P2 + %1 Cfjp!) + m 2 S < T )J dT 


(A-34) 


where 




[ 7 a Vi \ 

( v p i - !) Lv * T / 


sat 


♦ Vi 2 I 

^ - DJ 


Evaluating 


/ ^ hfyA 

Ut ) 


(Pm/Pi 

(A- 35) 


for water between 100 and 500 F 


results in: 

/ ^ h fy] 

Va T 


L' 


U360 

ipl. 38 


(T in °R) 


(A-36) 


Combining equations (A- 35) and (A-36) yields f (T) as a function of temperature 
and total pressure shown plotted in Figure A- 10. By curve fitting: 


5 (T) 
q = 



.0237T 

c fl$l + “2 



since 
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q = (®2 c 2^2 + ®ol c n$l)( T ln " 
q * (n>2C2^2 + ®ol c fl $ l)( T in 


J out , ,, p 

kl.9 P m * e* 


0237T 


dT 


In 


- T^) - 1770 mgP* 


- 1.112 


( e * 02 37 T^t _ ^ .0237 


(A- 37) 


where : q is In Btu/min 

m is in lb/mln 
c is in Bbu/lb-°F 
T is in °R 
P is in lb/in 2 -abs. 

Equation (A- 37) is included in simultaneous heat flow equations and represents 
the heat loss of a saturated hydrogen-water vapor mixture when cooled from 
T in ^0 T^. 
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COMPARISON OF INTEGRATED VS. MID-POINT VALUES 
OF FIN-TO-TUBE VIEW FACTORS FOR r/w = 1 


Section 
See Figure 4 

^Integrated 

F At Mid-Point 

$ error 

3 to 1 

• 359 

.348 

3.07 

4 to 1 

.2265 

.2231 

1.23 

5 to 1 

.1394 

• 1379 

1.03 

6 to 1 

.0863 

.0842 

2.41 

6 to l* 

.0552 

.0547 

• 707 

5 to 1' 

.0405 

.o4oi 

.987 

4 to 1' 

.0331 

.0330 

.303 

3 to i* 

.03010 

J 

.02961 

1.63 


NOTE: 1' refers to the adjacent tube. 


Figure A-l 
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VIEW FACTORS FOR CENTRAL FIN 


Section 

View Factor to 

Both Tubes 

3 

x 'j.l (r/v) + .0025 

^3.8025 + 3.9 (r/w) 


2 (r/w) + .1 

2 (r/w) + 3.9 

4 

0.4 (r/w) + .04 

0 3.24 + 3.6 (r/w) 


2 (r/w + .1 

2 (r/w) + 3.6 


0 .9 (r/w) + .2025 

0 2.4025 + 3.1 (r/w) 

5 

2 (r/w) + .9 

2 (r/w) +3.1 


0""l.6 (r/w) + .64 

^1.44 + 2.4 (r/w) 

6 

1 - 

2 (r/w) + 1.6 

2 (r/w) + 2.4 

View Factor _ 

Tube to Space “ 

-|r + w/r (1 -\^(r/w)+l)+ 

2 COS ( 1+2 w/r) 


Figure A- 2 
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VIEW FACTORS FOR OPEN AMD CLOSED SANDWICH 


| Section 

\ -- 


3 


1 


4 


1 


5 

6 


1 


l 


View Factor 
Tube to Space — 


View Factor to Both Tubes 


_ i r.l(r/w) +.0025 + 3.8025 + 3.9(r/w) 

2 \_.l(r/w) +.0025 + 2(r/w) 2 3.8025 + 3-9(r/w)+ 2(r/w) 2 

1 f.4(r/w) + .04 3-24 + 3.6(r/w) T 

“ 2 [_.4(r/w) + .04 + 2(r/w) 2 + 3.24 + 3-6(r/w)+ 2(r/w) 2 J 

_ 1 f-9(r/w) + .2025 + 2.4025 + 3.l(r/w) "j 

2 |_.9(r/w) + .2025 + 2(r/w) 2 2.4025 + 3.l(r/w)+ 2(r/w) 2 

r i /__\ S\ 1 % _ . # ; t 

Xeuy xyv; -r .64 ±.44 + 2.4(r/V) -I 

^1.6(r/w) + .64 + 2(r/w) + 1.44 + 2.4(r/w) + 2(r/w) 2 J 

— _ _ 

I -l . 


H 


1 + tan ^ (l + 2 w ; 


/r) - TT/4 


Figure A- 3 
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LOCAL VIEW FACTOR TO SPACE - 
TRIFORM AMD CRUCIFORM CONFIGURATIONS 



hH 


r x 

CRUCIFORM 



Figure A-k 
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Figure A-6 
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Figure A- 7 









f(t) vs. 


TRW EQUIPMENT LABORATORIES 



c ij 

nia 


'(i) j 


Figure A-8 


TEMPERATURE, °F 
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Figure A-9 


TEMPERATURE, °F 



£(t) vs. 
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Figure A- 10 


TEMPERATURE, °F 
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APPEND EC B-l 
FILM STABILITY ANALYSIS 


Tvfo types of film instabilities may affect the performance of space condenser-radi- 
ators* The first is known as the Kelvin- Helmholtz (inertia and surface tension) 
instability and the second is the Schlichting-Tollmien (inertia and viscosity) 
instability. Both are characterized by the breakup of a wall-bound film and 
transition from annular to fog flow (dispersed condensate) as shown in Figure 
B-l. (Figures for Appendix B can be found at the end of the Appendix. ) 

This appendix will determine which type of instability is likely to govern in 
space condensers and where it will occur. Knowledge of this transition point 
will enable a designer to intelligently apply two-phase pressure drop information 
to space condensers, i.e., annular flow correlations prior to film breakup and 
fog flow correlations subsequent to film breakup. 

First examine the Kelvin-Helmholtz phenomena. Figure B-2 shows how the film 
Reynolds and Weber numbers vary with condensing length. 


Knowledge of the maximum value of film Weber number could give some insight int o 
the importance of this instability mode. Finding this maximum as a fu nc tion of 
system inputs: (The nomenclature used in Appendix B is identical to that used 

in the Analytical Section, see Nomenclature Section.) 


W f = 


U 2 f fS 


g c <r 


Un 


Se O' 


(u f> f s ) = w f 


Note that: 



and 

u 2 

S = 2 (1 -X ) 

also 

II 

5* 

( P v /p f ) 1/2 

TT d 2 c 

combining 


k ^ V 


HJo 

where U (mean) = -i 


(momentum considerations) 


^J. <?v/?f ) l/2 2 < 1 -X) ^5 «W f 
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X mo 


4^ ?»«.«■ 


<?Af> 1/2 2(1 - x) ^ - w f 


8 mo £ 


( ?v / ff ) l/2 X(l-X)=W f D 3 


* f v 8s <T 


1/2 


Let K = ijO° i£lL £ll (a constant) 

tt ^ v 8s cr 

Therefore, K X (l - X) = W f D 3 
differentiating : 

K (dX - 2 X dX) = W f 3 D 2 d D + D 3 d W f 
K (1 - 2 X) = W f 3 D 2 d D/d X + D 3 d W f /dX 


Setting 


dW. 


f _ 


= 0 


dX 


(B-l) 


dX K (1 - 2X) 
dD = w * 


max 


Also note that 


ITTo 




= m 
v o ° 


(B-2) 


Therefore, 


k - -r - 2 (?v/?f ) l/2 ^° k " Vo 


K 


TT P v ®s ^ 


= D c 3 D o f v ^p 2 

2 s a (T 


TT 


< ?v/ff > 


1/2 


r 

K = D o 3 W V ( { v/?f) l/2 vhere W v 0 = D ° ^ ~ Uv °- 

° 2g B (T 


(B-3) 
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recalling that 


KX 


" f - P U - 30 


We can now define the point of maximum W f in terns of X and D, therefore, 

- p (i-x, 


or 


1 - 2X 


3 dD 


X(1 - X) D dX 

for a constant diameter tube dD/dX = 0 and X = l/2. Therefore, 
« _ - X) _ K l/2 ,, , K 

n-p — o = % 


L max 


d3 


Tf (1 - !/ 2 > 


h d7 


(B-4) 


w* 


L max 




(B-5) 


Generalizing at neutral stability, L_, W f = 3 (from reference 20) and by 
equation (B-2) a 


dY v 


dD 3 D 2 


U - 2X; = 3 


/ — /• \ 


Each term (X, D) in equation (B-6) can be expressed in terms of L, thus giving 
L = function of K. 

ax (i - ax) ) d 3 , d /b a/2 , 


(i pv o (fvV 


= 3 


(B-7) 


function of L 
Solve (B-7) for L 


n 


Note: For a constant diameter tube use (B-5) to give W necessary to give an 

instability at X « l/2 or I^/l^ = l/2, namely, ° 


12 = "vo ( Pv/?f) l/2 




= 30 (water) 


W = 360 (minimum for instability) 
v o 

B-3 
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Under normal conditions, W^> will occur before the point of maximum \Jf then 
use equation (B-l) 

3 

KX(l - X) = W f D 

Do 3 Wy 0 (ft / 0 = (B-8) 

2 X (1 - X) K J 

W fn 

where the right hand term is a function of L. 

Let W f]Q ** 3 (again from reference 20) asstime D = D Q 

1 - X = lJl 

n n c 
then (B-8) becomes 

3 V L c (1 " V L c) 

( V L c ) 2 - (VM + ~~ (f f/fv ) l/2 “ 0 

w v 0 

by quadratic formula 

. 1J 'll - 4 (1) (3/m T q ) (Tf/PvT 
L n' L c 

2 

11 4 1 - (gf/gy)^ 

2 

Let ( ? f/9v> 1/2 = 30 (water) and plot W v versus L n /L c (Figure B-3)* 

This shows that for same values of inlet vapor Weber number, no Kelvin- Helmholtz 
instability exists. 

Turning now to the Schlichting-Tollmien instability: 

» $ It °2 , 2 (1 - x) Up 

f / i t 7T D jX f 

= 200 (from reference 20) 

then 

200 . 1 - * 

2 m 0 D 
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100 IT A 


f _ 


7 T Dr 




1 - X 
D 


r ( /va> r- ■ ^ <w) 

u 0 Rvq 

T3ie right hand term (l - x/D) is a function of L and (B-9) will, therefore, give 
L = L n . For a constant diameter tube and X varying linearly with L, we obtain 


1,00 WAI */*»„ - 1 - X = AAs 

using = 50 (water), plot R„ versus I^/l^ (Figure B-4). 

Again, as with the Kelvin-Helmholtz phenomena, the Schlichting-Tollmien insta- 
bility may never occur in a condenser. 


In summary, neutral stability is defined by 

0^ (W~ , ) = 0 

A n A n 


A sufficient condition for stability is 

W f < 3 (Kelvin-Helmholtz) and 

Rp ^ 200 (Schlichting-Tollmien) 

wnxcn is conservative sjicl tne concLiviOn u&suxucu in txiis snsly si ^ ? 
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APPENDIX B-2 


DETERMINATION OF L*/Ln 


Investigating film growth rate starting with the wave growth equation: 

= OC jZ d © (from reference 21) 

B Ci ^ 

Wave propagation equation 

cIL - Up ( + 1) d © + © ( + 1) dU P 

U 2 dU 2 

which comes from 


(B-10) 


(B-ll) 


L = © (Cp + U 2 ) = © U 2 ( 9 r + 1) 

u 2 

carabine (B-10), (B-ll) and (B-12) eliminating time, (B-ll) and (B-12): 


(B-12) 


dL = Up ( — +1) d© + 


L Q dCfi/ dU 2 ) + l] dU 2 

U2[(Cr/u 2 ) + g 


and (B-10) 


dB _ CC dL 

B " c i £ U 2 [(Cr/U 2 ) + 1 


L^dCR/dU 2 ) 

u 2 2 D°r/ u 2) 


+ lj dU 2 1 

+ lP J 


OC ci 


B U 2 $ [(Cr/U 2 )+ l] 


— 

u 2 

♦1] L 


- L C(dCR/dU 2 ) 
(Cr/U 2 )+ 


2) + \\ du 2 
+ 1 


(B-13) 


From continuity 


nif » TTdS ^ f U 2 /2 
2 (l - X) iUq c 

— = 5 Ur 

TT D pf 


(B-lU) 


From momentum transfer considerations 
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u 2 =o v <f»/e f ) 1/2 

combine (B-l4), (B-15)and (B-13) 

dB- OC Cl irD f f [iV(P v /f f ) l/ 2 aL. 

B 2 (1 - X) lo [_(Cr/U 2 )+ lj L 


LpdCn/dUg) + lj 

[(o r /° 2 ) + *] 

also, from continuity 



(B-15) 


(B-16) 


U,= X ”t 


TTD 2 


and 


dUy = 


dU = 


= ^ Pq 

ir?y 

°o 

TT?v 


/ X \ _ 

^ TT^V 


> 1)2 
/dX 

— - 2 X 

Vd 2 


combine (B-l8, (B-17) and (B-l6) 


p 

D dX 


X 2 DdD 




dD \ 
d3 J 


«b <x cl TP pf (P v /f f) l/a i ^xyi! 
B 2(1 - X) m 0 [(C R /U 2 )+ 1] LTD 2 p v 


dB 

B 


L Q dc R/dU 2 )+ 1] 4 nio / dX 

j(CR/U2)+ lj TT ^ v V D 2 



2<*-Cj (^f/Pv) l/2 

(1 - X) [(Cr/U^ l] 

Ik « - 2 X k_ 

V D dL D 2 



[(dCR/dU 2 )+ l] 
[(Cr/U 2 )+ lj 

dL 


(B-17) 


(B-18) 
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integrating from neutral stability to transition 

* L* 

B 

In — = 


B n = (<W«2> + l ( ^ t)/ J ^ 


c i 

X 


X 

D 


(d^/dUg) 


(0r/u 2 ) 


2 )+ 1 ( L dX 

+ 1 \ D dL 


Ln 
2 X 


Assume: 


L 

D 2 



(B-19) 


D = D Q = constant 

1 - X = L/L c ; dX = -dL/L c 

dC r /dU 2 << 1 

oC. = constant 
c i 

(B-19) becomes: 


. B* 

In — = 

2 06 Cl 

ft 1/2 

f Lc 

(1 - l/l c ) _ 

Bn 

(Cr/u 2 )+ 1 

fv 

J r \ 

Ln 

- D o 
% 


1 

l_ / 

' 1 \] 

f dL 


(c R /u 2 + 1) 

Do ( 

• L c jj 

* 

B 

In — = 
Bn 

2 °^ci 


L* 

r T Lc i + 1 1 

(Cr/U 2 )+ 1 

K?J 

/ [l «y u 2) +i J B o 


Ln 


For most cases 

Cr/u 2 << 1 

then, 

- B* oae 
ln — = 2 oC 

Bn 


ci 


<(V(V 


1/2 


L* 


/ 


Ln 


Lc dL 
D o L 
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In 


S • [» ‘"J 


-1 


(B-20) 
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APPENDIX B-3 
TWO-PHASE PRESSURE DROP 


It is convenient to consider the frictional and momentum effects on the pressure 
changes during condensing separately. The following analysis applies to 
frictional portion of the pressure drop: 



namely. 


lTr 2 P = IT r 2 (P+dP)+ ^2 TfrdL 
dP/dL = - ^3* 

The pressure is assumed not to vary in the radial direction, therefore, 

o 'V 

( dP/dL )rpp = - t Z* 
r o 

and at the liquid vapor interface, 


dP/dL = - 2 ^2 * 

r 2 

Note that for a thin liquid film 



— «< 

o 


1 


-t 2 
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Defining a frictional pressure drop assuming only vapor to flow in a tube, we 
have 


dPy - 2 'tv 

dL r Q 


Introducing the Lockhart-Martinelli two-phase frictional pressure drop modulus, 
(dP/dL)jp ^2 _ X 2 


(dP v /dL) 




note that 


Dp _ D - 2$ 
D D 


t T [l -tS/r D )] 


- 1 " 


therefore. 


2 

I 

V 


(1 - 






(B-21) 


Since is computable by means of single phase fluid mechanics, it can be seen 
that the salient problem in two-phase fluid mechanics is the determination of 
X 2 and g . 


For a thin lam inar liquid film with a linear velocity profile, the following hold 
true (pressure gradient effects neglected in a thin film) : 


X = X - 

v w u 2 


.Af % 

So S 


(B-22) 


and if all of the liquid flow is contained in the film, then 

vif = ^ ^ £ 7T D S 


(B— 23) 


eliminating U 2 from (B-22) and (B-23) 

^ = 2 mf 

2 Sc S 2 f>fVD 

/ _£_) = 2 mf ,/S-f 

U/ ff-™ 3 

lA (1 - £2 ) = 2 mf ^£f 

D ^280 n d 3 


(B-2lf) 

(B-25) 
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Returning to (B-2l) and expressing the shear stress in terms of friction 


factors, we have 

\ » 


P V Uy 

8 «c 

Vol ^ P” \ 
8 


Therefore, 


s. 


(W 


(b- 26 ) 


Laminar Film - Laminar Vapor Core 

For laminar flow of the vapor and assuming a smooth liquid vapor interface: 

64 

u Do 

= — (B-27) 


4 my./ IT D 2 My 


6k 


k m^T T 


also, from continuity, 


lr ” 2 p = 

4 1 v v 2 

V P 0 
4 r v u v 

s = 

2 

U v 

combining (B-26), (B-27) and 

(B-28) 

CVJ 

Q 

CVJ 

4 

( M 

x v 1 

l D J 

combining (B-29) with (B-21) 



(B-28) 


(B-29) 


k 


4.0 


(B-30) 
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The ratio D/D 2 in (B-30) can be computed by of (B-25) as follovs: 



where Re^. is the superficial vapor Reynolds Number computed as if vapor alone 
were flowing. Substitute (B- 31 ) into (B-25) noting that 



3 2 

/ E_\ / 1= »2\ _ 64 m^ 

K D 2 i ^ ~ D ) f v U v 2 TT D3 


Substitute: 

Pv°v 


4mv 

tFd 2 



64 

f v «V ^fTTD 3 

TTd 2 1 


i-5* 


f v Re v 


(?)(;£)(&) ,M *’ 




(B-33) 
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A simplified approximate solution for D/D 2 can be derived starting with 
equation (B-32). For simplicity, let the right hand side, equal to a constant K 

3 « v 2 


assume: 


then: 


( 1 • d* ) • k 

(y'V?)--’ 

ax*- >)-«•’ (» J 

(M' s » *•» 

(u ■*•[(*) (?)(^) (fi)_ 


.5 


(B-3*0 


Investigating percent error involved in using (B-34) instead of true solution 
of (B-33). 

Let (D/D2) = 1.2 (this assumes approximately 30$ of cross-sectional area is 
taken up by liquid). This can well be considered the upper limit for (D/D2). 
Using equation (B-30) 


<£ 2 = (1.2) U = 2.07b 


(exact solution) 


From (B-33) 


($v)(^)(5 )(£?) 


Then from (B-3^) 
D 


,.5 


= 1 + (.048) " = 1.219 

"2 

^ 2 = (1.219 ) 4 = 2.208 


K 


= ( 1 . 2)3 - 2 ( 1 . 2) 2 + 1.2 

= .048 
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% error ■ (2.208 - 2.074) 100 

27074 

- 6.47* 

For a more typical value of D/Dg, say of 1.05: 
* error = (1.0513)^ - (1.05)^ 


= .006027 

1.2155 

= .495# 

Based on these findings, the sinpler equation (B-34) rather than the solution 
of (B-33) can he used with negligible error. 


Laminar Film - Turbulent Vapor Core 

For turbulent flow of the vapor phase and assuming a smooth liquid vapor 
interface. 


. —•.3-*-^ 1 Ik 1 » l/4 

£2 = (4 my/TTDg ^Cy r_ _/]M 

f v .316 \ D / 

( It m / XT T> XC \ l/4 


' 'V' " / y' 


Also, from continuity, 
_ 2 


T d 2 c 


combining 


- P U = D U 

pr V2 4 p v 

■ (%)’ 
■(»*(*)* 


(B-35) 


combining (B-35) with (B-21) results in 
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(B-36) 


The ratio D/Dg in (B-36) can be computed by means of (B-25) as follows: 



where Re v is the superficial vapor Reynolds Number computed as if vapor alone 
were flowing. Substitute (B-37) into (B-25) noting that 



£v 

8 


2 mf /If 



8s 



TT D 3 



64 mf ytt. f 

f v /»v V fr TT bJ 


Substitute : 






64 m£> -f 


4 my 

fD 2 


U, 


7TD3 



16 


t-r ( ?)(£) ( ft) 


(B-38) 
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Again, a simplified solution for d/d^ can be derived from (B- 38 ) 

15 A / D_ \2 

15/8 


(?) 

. V 15/8 / D X 5 

(k) *) ■' 


.125 


Assume 


then: 


(k) 


.125 

c; 1 


= 0 


(j>_j “ g_ - K*' 

k - f [(&) ( ?) (&) 

Again, Investigating maximum error with (D/Dg) =1.2 using (B- 36 ), 

2 A.75 



.5 


1 

J 


= (1.2)“- =2.37 


from (B- 39 ) 


f*T=v) 



■5 1.875 

- ( 1 . 2 ) - ( 1 . 2 ) 

= l.h 08 - 1.173 
- .235 


.875 


Using equation (B-4 o) 


|- = .5 + (.25 + .235 ) 5 

d 2 

» 1.197 


5 

(B-40) 
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it error 


(1,2)^ >7? - (1.197) 1 *" 75 


( 1 . 2 ) 


>.75 


- .835* 


Again, the sixtier equation (B-40), rather than the solution for D/D 2 from 
equation (B-39) can be used. ^ 

Fog or Homogeneous Flow 

For fog or homogenous flow (also see reference 24 for detailed analysis) start 
with (B-21) as follows: 

^2 _ ( fm/8) P m Um 2 _ D_ 

d 2 (f y /8) f v u v * d 2 


§ 


= D 
D, 


2 tv 
f m P m 


(S) 


Note: Subscript m denotes mix ture. 

From reference 24 


L m 


r h] 


iA 


__ 


1_ 


From continuity 
u m = 

we now obtain 


(” 2 ) 


turbulent flow 


if the volume of the liquid phase is small 
contrasted to the vapor phase. 


**■ kikUk)'” 


IT'T 


For the limiting case when no liquid appears on the wall (Xj. = X and D/D 2 = l), 
we obtain a simple equation for fog flow, namely, 

<5 (fog flow) = l/x 3 / 4 (B-4l) 

* v 
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Experimental corroboration of equation (]WH) is shown in Figure B-5 (from 
reference 29). In this curve, the $ 2 x3A term approaches 1.0 as the Weber 
number, D P y U^/2 gc <T" , increasesY This high Weber number indicates a 
negligible effect of wall -bound film (or drops) and the two-phase frictional 
effect is produced by the entrained liquid, only. Although this data was 
obtained with mercury in 1-g, the correlation was followed when artificial 
wetting (or film condensation) was induced. Furthermore , references 30 and 
31 show experimental agreement with the correlation for tapered tubes and zero g. 
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APPENDIX B-4 
SINGLE TUBE INSTABILITY 


In examining single tube instability, the first step is to analyze the conditions 
at the incipient runback point* to differentiate between negligible and pre- 
dominant factors. Deference 33 gives the following film velocity profiles for 
conditions of a stable film, incipient runback, and runback. 


Runback 


Incipient Runback 



Tube Wall 


Stable Him 


x 

At the incipient runback point it can be seen that the velocity gradient at 
the wall is zero and the wall shear stress is therefore zero. It will also be 
assumed that there is no velocity in the X-direction and that the change in 
velocity in the Y-direction is negligible. 

This latter assumption is pessimistic since it neglects the effect of the liquid 
momentum gain due to the effect of decreasing liquid velocity as the incipient 
runback point is reached. The last assumption is that the (vapor) pressure 
gradient is negligible which is also pessimistic since the pressure gradient 
would tend to support the film. Consider an incremental area within the liquid 
film: 



* That point at which the film velocity becomes zero and its thickness will 
grow until the tube is bridged. 
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Vapor 


Film 


1— ax ■*( 


dy 


M' 



T 

dy 

* . 

1 



TV 


/Ogc<ay 


dx 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

f 

/ 

/ 


Tube 

Wall 


Balancing the forces yields 

d'fc 


but 


and 


( — dx + T ) dy = n 0^g ( ,dydx+ Tdy 

•£-/<, p 

* dx 

a. 'K n * 2 TT— 

•ft 


dx 


dx^ 


which on substitution into equation (B-42) yields: 


dV 

dx^ 

0 /i«c 

A 

integrating 

d U v 
— -JL = 

8 cX 

dx 

*1 


but since the limit for stability is dty/dx = 0 at x = 0 and C ± 
Therefore, 


= 0 . 


u y - 


n x 


Pa + 


but 


2 A 

C P ~ 0 at x — 0, Uy “ 0 


(B-42) 
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and finally, 
U- 

and at 


Sc 

y ' 2 /^ 

X = £ , u y = Uj 

n A g c 


(B-43) 


£ 

2 


U4 


where $ ■ film thickness 


since the velocity profile is parabolic the average velocity is l/3 of the 
interfacial velocity (u^) and from continuity: 




S Tf d 


3 m/ 


(B-44) 


Substituting equation (B-43) into equation (B-44) yields: 


n f ^ gc S 3 7^D 


but 


f i = „ g{ 

and finally, 


= 


't.-J ) 

1 IfH / 


1/3 


(B-45) 


■which gives the expression for the interfacial shear at the runback point. 
However, the net interfacial shear is made up of two components; the frictional 
shear, and the momentum shear, ^ mom, where: 


V i - 't f + Tmom 


'V - - D ^ 
u f - 4 r v ~ 

(B-46) 

2 gc 


0?— A “V U v 


TTD^a Lg c 

(B-47) 


where A m^ = vapor condensed. 

Equating (B-45), (B-46) and (b- 47) yields: 

n / /V \ l/3 f 0 

^ 7td gc ) " u r v 


u v 

2 gc 


+ A °yUy 
7T D A Lgc 
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APPENDIX B-5 

MULTIPLE TUBE INSTABILITY 


The following is a discussion of the multiple tube mode of instability. 
As an example, assume the following condenser: 


1 


Condensate 



« * "Sr 0 h f g 


TTd 2 

T~ 


°o Vg 



n 


where q * heat rejection per unit length and time. 

Combining equations results in: 

Ap s =$ 2 f 11 °° 3 ^ - °JL + 

v int int 8q g c p v p v g c 
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differentiating : 

d Ap s 

d G 0 


i 


'int 


int 


TTD hf g 3 Go' 

8 <1 8c fv 



+ 


substituting: 

7Td 2 

k 



(B-22) 


d (A p s ) _/5intfint L v k 
d G 0 V D "3 


2Lyg^n 




3 0 o 

2 ®c^v 


From reference 32, a necessary and sufficient condition for stability is that 
d ( A P s )/dG 0 is positive. This requires that: 


^Pf > 


2 

3 


°o 2 * W ft n 

i 
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APPENDIX B-6 


PRIMARY/ SECONDARY DESIGN ANALYSIS 


Consider the two-tube condenser below operating in zero or micro-gravity* 



If now, an unbalance is imposed on the system, say, the heat rejection 
capability per unit length of tube No. 1 becomes greater than tube No. 2, 

% > % 

and. 

m^a ^ “Hr*) (vapor mass flow rates) 

This means that the pressure drops are unequal. 

AP a >AP b 

However, since the tube inlet pressures are equal (assuming negligible header 
pressure drop), the interface pressures are unequal, which is not a stable 
condition. Therefore, the unbalance is compensated for by adjustment of the 
interface location until 

A p a = AP b at which l Ca > 1^ and m v& > m^ 
where 1 Q are the respective condensing lengths. 

However, for a condenser designed for operation against a substantial "g" field, 
this readjustment of liquid legs may produce a catastrophic unbalance as a result 
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of the static pressure effects of the varying liquid leg lengths. An alternative 
would be to remove the interface from the parallel tube array to a point down- 
stream in a single tube. With this arrangement shown in the sketch below, the 
unbalances which were compensated for with shifting liquid legs in a multiple 
Interface condenser are, in this case, compensated for by a variation in the 
outlet quality from each tube. A 

1 Condensate 


Gravitational 
Force Direction 



Single Tube 
Condenser 


Multiple Tube 
Condenser 


Vapor 



Obviously, the design exit quality of the parallel tubes must be stiff iciently 
large to compensate for the unbalances without allowing the vapor velocity to 
drop below that value required for film transport. Nor does one want to have 
too high an outlet quality because of the weight penalty involved. The minimum 
exit quality to meet the above requirements can be approximated assuming 
reasonable geometric and ther m al imbalances. 


Assuming a tapered condenser tube with a constant vapor velocity and neglecting 
the small momentum recovery which results, the following analysis investigates 
the necessary outlet quality (based on 100$ inlet quality) for stability in the 
parallel tube portion of the condenser. 


Friction: , 

ap s > < 

i 2 f isi! 

v V fv ^Sc 

dL 

D 

(B-48) 

Thermal balance: 




dL = - 

Ghfg ir 

q 4 

dX 

(B-49) 
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Combining equations (B-48) and (B-^9) gives 


dP =1 



GhfglT D 2 


where 




f v T h f s 


(assumed constant) 


P v 8s 


(B-50) 


where q = heat rejection per unit length. 

The assumption that ^ and f y are constant will not affect the result greatly 
since, in the v following analysis, two condensing tubes will be 

compared and these values will change very little from tube to tube over the 
quality ranges to be ex amin ed. The use of an average D rather than an integrated 
one should also have little effect since the pressure drop of one tube is to be 
compared to another rather than the absolute value obtained. 


Integrating equation (B-50): 

r Pe / gV 


f -U?) f 


X^dX 


(x)[¥ - I] 


(B-51) 


P Q = inlet pressure 
P g = exit pressure 


Integrating and solving for G: 


dL = 


GhjgTT D 2 

U q 
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L = - G hf f ~~ — (X e " 1 ) 

q . it L-3 

-rrD 2 ^ (1 - x e ) 

Combining equations (B-51) and (B-52) 


P 1 - P e “ °2 



(1 - Xe 3 ) 

(1 - X e )3 



(B-52) 


(B-53) 


Equation (B-53) provides an expression for tube exit quality as a function of 
tube geometric and thermal characteristics. This can now be applied to two 
parallel operating tubes as shown in the following sketch. 



where 


= the header friction loss. 
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Assume, for discussion purposes, 
= .02 psi 
Ap d =0.5 psi 
which means: 


APb « 0.48 psi 

Allow tube D to operate at design conditions and tube b to deviate from design 
to the extent that 


% - 9D 

°b 2 

X eb 2 ^Xep 


(B-54) 


where 


subscript D = design conditions 

subscript b = actual conditions in the "worst" tube 
Then, using equations (B-53) and (B-54) and cancelling 

0-W [l - (oeXep J 3 } [l - Xep] 3 

Pd 0.50 ' [l - (oCXeD )] 3 [l - (Xeu) 3 ] C « &a (B " 55) 

Equation (B-55) then expresses the effect of thermal, geometric, and fl u id 
dynamic unbalances between tubes on the design outlet quality necessary to 
maint ain the vapor velocity greater or equal to oc times the design exit vapor 
velocity. Equation (B-52), however, still has two unknowns, oC and Xgp or design 
outlet quality, even after € and & are determined. However, these two 
numbers are related since ^ 


?eb =Ieb -ec. 

*«> v eD 


Figure B-6 then expresses equation (B-54) for a thermal unbalanc e of 5$ and a 
diametral unbalance of 1$. For instance, with an outlet quality from the parallel 
tubes of 15 $ and a film transport requirement of 40 ft/sec, the condenser would 
have to be designed with a vapor velocity of 65 ft/sec to insure that the minimum 
vapor velocity of 40 ft/sec would not be violated in an unbalanced tube. 

In this design approach, obviously, the single tube condenser would have to reject 
the remaining latent heat from the vapor. This concept combines the lightness of 
a parallel tube condenser-radiator with the stability of a single tube radiator. 
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1 X 0 

Figure B-2 


KELVIN- HELMHOLTZ NEUTRAL STABILITY LOCATION AS A FUNCTION OF 



SCHLICHTING-TOLLMIEN NEUTRAL STABILITY LOCATION AS A FUNCTION OF 



0.5 

L n^ L c 
Figure B-4 
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PARAT.TJIL TUBE STABILITY REQUIREMENTS 



Figure B-6 
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APPENDIX C 
SAMPLE CASES 


C-1.0 Design Program, ^-HgO Fuel Cell Direct Radiator-Condenser. 

C-l.l Problem Definition 

Explore all possible designs for a fuel cell direct radiator-condenser satisfying 
the following conditions: 


System Inputs 


hydrogen flow rate 
water vapor flow rate 
total pressure 
inlet temperature 
outlet temperature 
pressure drop 
sink temperatures 

Designer's Inputs 

tube, header, fin material 
geometry 

tube inside diameter range 

tube count range 
cone diameter at inlet 
cone diameter at outlet 
tube wall thickness 
header wall thickness 
maximum fin thickness 
minimum fin thickness 
maximum allowable Mach number 

Material Properties (at 630°R) 

tube, header, fin conductivity 
tube, header, fin density 


.0562 lb/min 
.0738 lb/min 
60 psia 
800°R 
625 °R 
.048 psia 
535°R, 500°R 


aluminum 

cone > central ?ln 

.20 in. to .22 in. (.01 in. 

increments) 

10 to 12 tubes (l tube increments) 
3.0 ft 
3.4 ft 
.10 in. 

.03 in. 

.20 in. 

0 in. 

• 7 


80 BTU/hr-ft-°F 
174 lb/ft3 


C-1.2 Input Data Sheet for Fuel Cell Design Sample Case 


Figure C-l shows the input data sheet prepared for the sasple case defined in 
Section C-l.l (See Section 6.3*1 for detailed instructions for preparing the 
input cards.) 


Each card on the data sheet has been given a sequence number in the left margin 
to aid the card by card description that follows. 


C-l 


Card 1 . General comment card. 

Card 2 . The 2 in column 2 indicates that two separate thermal environments 
are to be considered without program restart. 

Card 3 . Columns 1-10, first sink temperature to be considered is 535°R. 

Card 4 . Columns 1-10, second sink temperature to be considered is 500°R. 

Card 5 . Eight ten-digit fields of given input. 

Card 6 . Eight ten-digit fields of given input. 

Card 7 . Columns 1-10 and 71- 80 show given values for DCMAJ and TFMIN, 
respectively. Columns 11-20 (LCMIN) and 21-30 (LCMAX) have no values since no 
length limitation was specified. Columns 31-^0 (TIF) and 41-50 (RHOIF) have no 
values since the cone has a central fin construction and, therefore, inner fin 
thickness and density are not applicable. Columns 51-60 (WMIN) and 6l-70 (WMAX) 
have no values since no overall width limitation was specified. 

Card 8 . Columns 1-70 show seven ten-digit fields of given input. Columns 71-80 
show no value for WINA 0 since WINA 0 is not used in a conical radiator design. 

Card 9 « Columns 1-10 and 11-20 show no values for WINA F and WINA D, respectively, 
since these variables are not used in a conical radiator design. Columns 21-30 
(TTG) show the given input for tube wall thickness. Columns 31-70 show no values 
for meteoroid protection data (TAU, -LNPO, MEF, METH) since a given value for 
tube wall thickness bypasses meteoroid protection. Columns 71-80, value for 
ALPHS not needed since thermal environment is specified as sink temperatures. 

Card 10 . Columns 1-10, value for ALPHT not needed since ther mal environment is 
specified as sink temperatures. 

Card 11 . Columns 1-4 show value for PUNT. 

C-1.3 Fuel Cell Design Sample Case Outputs 

The outputs for the sample case defined in Section C-l.l are shown in Figure C-2. 
The first block in the output is the printout of the fixed input data. 

Based on the number of independent variables to be considered, eighteen radiator 
designs were possible. Each of the two specified sink temperatures heads its 
group of designs. 

Only one of the eighteen possible designs was rejected. When DIIN = .20 in., 

N = 10 and TS = 535°R, the fin thickness was out of range. The lightest designs 
occurred at DIIN = .21, N = 12 and DIIN = .20, N = 12 for sink temperatures of 
535 and 500°R, respectively. The smallest total area for TS = 535°R and for 
TS = 500°R occurred at DIIN = .20, N = 11, and at DIIN = .20, N = 10, respectively. 
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Total ru nnin g time for the above sample case was 104 seconds on a UNIVAC 1107. 
C-2.0 Design Program, Isothermal Direct Radiator- Condenser with Subcooler 
C-2.1 Problem Definition 

Explore all possible designs for a direct radiator-condenser satisfying the 
following conditions: 


System Inputs 

working fluid 
flow rate 

condenser temperature 
condenser pressure 
inlet quality 
inlet temperature 
outlet temperature 
pressure drop 
thermal environment 
incident solar 
incident thermal 

Designer *s Inputs 

geometry 

tube, header material 
fin material 

tube inside diameter r an ge 

tube count range 
fin half -width range 

header wall thickness 
maximum allowable Mach number 
meteoroid protection 

maximum allowable fin thickness 
m i nimum allowable fin thickness 

Fluid Properties (at 768°R) 

gas constant 
specific heat ratio 
vapor viscosity 
liquid viscosity 
latent heat 

specific heat of liquid 
liquid density 


water 

2.3^ lb/mln 

768°R 

76 psia 

•95 

768°r 

735°R 

2.0 psi 

200 BTU/hr-ft 2 
20 BTU/hr-ft2 


triform, closed sandwich 
347 SS 
a3 unr! mrm 

•10 in. oG .12 in. (.02 in. 

increments) 

50 to 80 tubes (10 tube increments) 

1.0 in. to U.O in. (1.0 in. 

increments) 

.03 in. 

.80 

95$ chance of no puncture in 

500 days 

.10 in. 

0 in. 


86 ft-lbf/lbm R 
1.31 

.000011 lb/ft- sec 
.00012 lb/ft- sec 
910 BTU/lb 
1.03 BTU/lb-°F 

57.0 lb/ft3 
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surface tension 
conductivity of liquid 
specific heat of vapor 

Material Properties (at 768°R) 

tube and header density 

fin density 

tube conductivity 

fin conductivity 

fin and. tube emittance 

fin modulus of elasticity 

tube modulus of elasticity 

tube and fin solar absorptivity 

tube and fin thermal absorptivity 


.0035 lb/ft 
.395 BTU/hr-ft-°F 
.56 BTU/lb-°F 


500 lb/ft l 
1 66 lb/ft- 3 
10.7 BTU/hr-ft-°F 
125 BTU/hr-ft-°F 
.85 , 

10 x 10° psi 
3 x 10? psi 
.2 
.85 


C-2.2 Input Data Sheet for Isothermal Design Sample Case 


Figure C-3 shows the input data sheet prepared for the sample case defined 
in Section C-2.1. (See Section 6.6.1 for detailed instruction for preparing the 
input cards. ) 


Each card on the data sheet has been given a sequence number in the left margin 
to aid the card by card description that follows. 


Card 1 . General comment card. 

Card 2. The 1 in column 2 indicates that one thermal environment is to be 
considered without program restart. 

Card 3 . Columns 1-10, negative number shows that incident fluxes are to be 
considered. Columns 11-20 show value for the incident solar flux. Columns 
21-30 show value for the incident thermal flux. 

Card 4 . Eight ten-digit fields of given inputs. 

Card 5 . Eight ten-digit fields of given inputs. 

Card 6 . Eight ten-digit fields of given inputs. 

Card 7 » Columns 6l-70 (TTG) show no value since tube wall thickness is to be 

calculated from meteoroid protection data (specified in Column 21-60). Columns 
71-80 show value for ALPHS (necessary since heat fluxes are given). 

Card 8 . Columns 1-10 show value for ALPHT (necessary since heat fluxes are 
given). Columns 11-20, (DCMIN) and Columns 21-30 (DCMAJ) have no values since 
this radiator is not a cone. Columns 31-40, (LTMIN) and Columns 4l-50 (LTMAX) 
show no values since no length limitation was imposed. Columns 51-60 (TIF) 
and 61-70 (RHOIF) show no values since they are applicable to only a cone 
cylinder configuration. Columns 71-80, (WMIN) has no value since no width 
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limitation was imposed. 

Card 9 » Columns 1-10, (WMAX) has no value since no width limitation was imposed. 
Columns 11-80 show seven ten-digit fields of given inputs. 

Card 10 . Pour ten-digit fields of given input. 

Card 11 . Columns 1-4 show value for PUNT. 

C-2.3 Isothermal Design Sample Case Outputs 

The outputs for the sample case defined in Section C-2.1 are shown in Figure C-4. 

Three of the thirty-two possible radiator designs were rejected. Combinations 

DIIN = .10 in., N = 50, WINA = 1.0 in. 

DIIN = .10 in., N = 50, WINA = 2.0 in. 

DIIN = .10 in., N = 60, WINA = 1.0 in. 

were rejected by the approximate fin efficiency test (higher than 100$ efficient 

fins required). 

The lightest design (158.87 lb) occurred for DIIN = .10 in., N = 60 and WINA = 
4.0 in. The smallest area (199*5 ft**) occurred for DIIN = .10 in., N = 50, 

WINA = 3.0 in. 


Total ru nnin g time for the above sample case was 59 seconds on a UNTVAC 1107 . 

C-3.0 Design Program, Isothermal Primary/Secondary Direct Radiator- Condenser 
with Subcooler 


C-3.1 Problem Definition 


Explore all possible designs for a direct radiator- condenser satisfying the 
following conditions: 

System Inputs 


working fluid 
flow rate 

condenser temperature 
condenser pressure 
inlet quality 
inlet temperature 
outlet temperature 
pressure drop 
sink temperatures 


mercury 
13.7 lb/min 
1060°R 
6.6 psia 
1.0 

1070°R 

86o°R 


3*0 psi 
0°R, 400 R 
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Designer's Inputs 


geometry 

tube, header material 
fin material 

tube inside diameter range 
(at inlet of primary) 
tube count range 

fin half -width range 

header wall thickness 
maximum allowable Mach number 
meteoroid protection 


Fluid Properties (at 1060°R) 

gas constant 
specific heat ratio 
vapor viscosity 
liquid viscosity 
latent heat 

specific heat of liquid 
liquid density 
surface tension 
conductivity of liquid 
specific heat of vapor 

Material Properties (at 1060°R) 

tube and header density 

fin density 

tube conductivity 

fin conductivity 

fin and tube emittance 

fin modulus of elasticity 

tube modulus of elasticity 


flat plate, open sandwich 

347 SS 

aluminum 

.50 in. to .52 in. (.02 in. 

increments) 

10 to 14 tubes (in 2 tube 

increments) 

5.0 in. to 6.0 in. (l.O in. 

increments ) 

.05 in. 

.8 

95# chance of no puncture in 

400 days 


7.74 ft lbf/lbm°R 

I.656 

.0000356 lb/ft- sec 
.00059 lb/ft- sec 
127 BTU/lb 
.0326 BTU/lb-°F 

820 lb/ft3 

.0326 lb/ft 
8.0 BTU/hr-ft-°F 
.0249 BTU/lb -°F 


500.0 lb /ft 3 

166.0 lb/ft 8 
10.7 BTU/hr-ft-°F 

125.0 BTU/hr-ft-°F 


• 8 5 , 

10 x 1CP psi 


3 x 107 psi 


C-3.2 Input Data Sheet for Primary/Secondary Design Sample Case 


Figure C-5 6hows the input data sheet prepared for the sample case defined in 
Section C-3*l« (See Section 6. 7.1 for detailed instructions for preparing the 
input cards. ) 


Each card on the data sheet has been given a sequence number in the left margin 
to aid the card by card description that follows. 


C-6 


TRW EQUIPMENT LABORATORIES 


Card 1 . General comment card. 

Card_2. The 2 in column 2 indicates that two separate thermal environments 
are to he considered without program restart. 

Card_3. Columns 1-10, the first sink temperature to be considered is 0°R. 

Card k. Columns 1-10, the second sink temperature to be considered is 400°R. 
Card_5. Eight ten-digit fields of given input. 

Card 6 . Eight ten-digit fields of given input. 

Card 7 « Eight ten-digit fields of given input. 

Card 8. Columns 61-70 (TTG) show no value since the tube wall thickness is to 
be calculated from meteoroid protection data (specified in columns 21-60 ). 
Columns 71-80 (MUEG) show no value since no minimum gravitational capability 
was specified. * 

Card 9. Columns 1-60 (TFMLN, TFMAX, LPMIN, LPMAX, WMIN, WMAX) show no values 
since no fin thickness, primary condenser length or overall width limitations 
are specified. Columns 6l-80 (TIF, REEF) show no values since they are not 
applicable to non-cylinder. 

Card 10. Columns 1-10 (LTMAX) show no value since no overall total length 
limitation is specified. Columns 11-30 (ALPHS, ALPHT) show no values since 
sink temperatures and not heat fluxes are given. Columns 31-80, five ten-digit 
fields of given input. 

Card 11 . Four ten-digit fields of given input. 

Card 12 . Columns 1-4 show value for PUNT. 

C-3.3 Primary/ Secondary Design Sample Case Outputs 

The outputs for the sample case defined in Section C-3.1 are shown in Figure C-6. 
In the output the first block of printout shows the fixed input data. Two 
groups of output follow separated by applicable sink temperatures . 

Out of the twenty-four possible designs, eight were rejected. 

The following combinations were rejected by the approximate fin efficiency test 
(fin efficiency greater than 1.0): 


TS 

DUMP 

N 

WINA 

FEFF 

0°R 

4oo°r 

.5 in. 

10 

5.0 in. 

1.09 

• 5 in. 

10 

5.0 in. 

1.11 

4oo°r 

• 5 in. 

10 

C-7 
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The following combinations were rejected by the fin thickness (primary) 
limitation check: 


TS 

DIINP 

N 

WINA 

TFP 

0°R 

.50 

10 

6.0 in. 

- .486 in.* 

0°R 

• 52 

10 

6.0 in. 

.815 in. 

4oo°r 

• 52 

10 

5.0 in. 

-3.18 in. 

4oo°r 

• 52 

10 

6.0 in. 

1.128 in. 


* Negative due to required fin efficiency slightly higher than 100$. 

The combination of TS = 0°R, DIINP = .52 in., N = 10, WINA = 5-0 in. caused 
the matrix of the primary condenser to be none onver gent. This may occur when 
a negative fin thickness is necessary to satisfy the equation (fin efficiency 
above 100$). 

For both sinks the lightest radiators occurred at DIINP = .52 in., N = l4 and 
WINA = 5.0. 

The smallest radiator area occurred at DIINP = .50 in., N = 12, WINA = 5*0 in. 
for each sink temperature. 

Total running time for the above sample case was 6l seconds on a UNIVAC 1107. 
C-4.0 Perfor man ce Analysis Program, H2-H2O Fuel Cell Direct Radiator-Condenser 
C-4.1 Problem Definition 

Analyze the performance of a multi- segment fuel cell direct radiator-condenser 
exposed to two separate sets of different simultaneous sink temperatures, while 
attempting to attain a specified outlet mixture tenperature . 


System Inputs 

hydrogen flow rate 
water vapor flow rate 
total pressure 
inlet temperature 

desired outlet mixture temperature 
first set of simultaneous sink 
temperatures 

second set of simultaneous sink 
temperatures 

maximum allowable Mach number 


.0562 lb/min 
.0738 lb/min 
60 psia 

8oo°r 
6 25°R 0 

1) 575°R 

2) 530°R 

3) 500°R 

1) 500°R 

2) 4oo°r 

3) 300°R 
.7 
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Radiator Geometry 

configuration 
tube count 
number of segments 
tube inside diameter 
tube outside diameter 
overall width (at inlet) 
overall width (at outlet) 
fin thickness (at inlet) 
fin thickness (at outlet) 
total length 

material (fins, tubes, headers) 

Material Properties (near 630°R) 

fin and tube conductivity- 
fin and tube emittance 


flat plate, closed sandwich 

15 

3 

.21 in. 

.40 in. 

7.5 ft 
7*5 ft 
.005 in. 

.005 in. 

7.0 ft 
a luminum 


80 BTU/hr-ft-°F 
.92 


C-4.2 Input Data Sheet for Fuel Cell Performance Sample Case 


Figure C-7 shows the input data sheet prepared for the sample case defined in 
Section C-4.1. (See Section 6.8.1 for detailed instructions for preparing the 
input cards. ) 


Each card on the data sheet has been given a sequence number in the left margin 
to aid the card by card description that follows. 


Card 1 . General comment card. 

Card 2 . The 2 in column 2 indicates that two separate sets of thermal environ- 
ments are to be considered. 

Card 3 . The 3 in column 2 indicates that the first thermal environment has 
three simultaneous sink temperatures or pairs of heat fluxes. 

Card 4. Columns 1-10, first sink temperature in first thermal environment is 

575^7 

Card 5* Columns 1-10, second sink temperature in first thermal environment is 
530°R. 

Card 6. Columns 1-10, third sink temperature in first thermal environment is 

500^. 

Card 7 « The 3 in column 2 indicates that the second thermal environment has 
three simultaneous sink tenperatures or pairs of fluxes. 

Card 8. Columns 1-10, first sink temperature in second thermal environment is 
500°R. 
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Card 9. Columns 1-10, second sink temperature in second thermal environment 
lebOO^R. 

Card 10. Columns 1-10, third sink temperature in second thermal environment is 
300°R. 

Card 11 . Eight ten-digit fields of given inputs. 

Card 12 . Columns 1-20 and 4l-80 have six ten-digit fields of given inputs. 

Columns 21-40 (ALPHS and ALPHT) show no values since thermal environments are 
specified as sink temperatures. Note: Since a non- zero value is given to T0UTM 

(columns 1-10), segmentation to control mixed outlet temperature is requested. 

Card 13 « Colvunns 1-20 and 31-60 have five ten-digit fields of given input. 

Columns 21-30 (MDTG) and 6l-70 (SHIN) show no values since inlet flow conditions 
are specified by MDG (colvunns 31-40 ) and MDVIN (columns 4l-50). 

Card 14 . Columns 1-4 show value for PUNT. 

C-4.3 Fuel Cell Performance Sample Case Outputs 

The outputs for the sample case defined in Section C-4.1 are shown in Figure C-8. 

The first block of outputs following the fixed input block shows the performance 
of the radiator with all of its three segments in operation. The radiator is 
exposed to the first set of three sink temperatures (575> 530 and 500°R). The 
mixed outlet temperature shown (TOMIX) is 6l3.42°R which is less than the speci- 
fied target temperature (TOUTM) of 625°R. Removal of segment three is, therefore, 
demanded. 

The second block shows the performance of the radiator with the first two 
segments operating. Its mixed outlet temperature (TOMIX) is 630.72°R which is 
higher than the specified target temperature and the run is, therefore, terminated. 
Operating with all three segments and with segments 1 and 2 brackets the specified 
outlet mixture tenperature of 625°R. 

For the second set of three sink tenperatures (500, 400, 300°R) three blocks of 
outputs are shown; the first depicting performance with all three segments 
operating, the second with the first two segments operating, and the third with 
only the first segment operating. This resulted in mixed outlet tenperatures 
of 572.86°R, 609.31°R and 636.89°R, respectively. The specified outlet mixture 
tenperature (TOUTM = 625°R) is, therefore, bracketed when operating with the 
latter two configurations (two segments and one segment). 

Total running time for the above sample case was 127 seconds on a UNIVAC 1107. 

C-5.0 Performance Analysis Program, Isothermal Direct Radiator- Condenser with 
Subcooler 

C-5.1 First Problem Definition 
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Analyze the performance of a multi- segnent constant inventory isothermal direct 
radiator-condenser (with subcooler) exposed to different simultaneous heat 
fluxes, 'while controlling the outlet mixture temperature by removal of segments* 


working fluid 
flow rate 
inlet quality 
degrees superheat 
type of condenser 
desired outlet mixture temperature 
type of outlet mixture temperature 
control 

thermal environment 

1) solar incident fluxes (segments 
1 through 6, respectively) 

2) ther mal incident fluxes (segments 
1 through 6, respectively) 

maximum allowable Mach number 
approximate final condenser 
tenperature guess 


mercury 
6.5 lb/min 
1.0 
0 R° 

constant inventory 

800°R 

segmentation 


430, 200, 70, 150, 70, 

200 BTU/hr-ft2 

0, 0, 30, 60, 30, 0 BTU/hr-ft 2 

0.8 

1000°R 


c onfj gurat ion 

tube count 

number of segments 

tube inside diameter 

tube outside diameter 

panel circumference (at inlet) 

panel circumference (at outlet) 

fin thickness (at inlet) 

fin thickness (at outlet) 

total length 

average condensing length 
tube material 
fin material 


cylinder, central fin 
24 
6 

.26 in. 

.50 in. 

16.0 ft 
16.0 ft 
.01 in. 

.01 in. 

8.5 ft 
7.75 ft 

347 SS 

a.1 iiitH mwn 



latent heat 
molecular weight 
gas constant 

reference saturated pressure 
reference saturaged tenperature 
liquid conductivity 
liquid density 
liquid viscosity 


127 BTU/lb 
200 

7.74 ft lbf/lbm °R 
5.3 psia 
104l°R 

8.0 BTU/hr-ft- °F 

820 lb/ft’ 

.00059 lb/ft- sec 
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liquid specific heat 
surface tension 
vapor specific heat 
vapor viscosity- 
specific heat ratio 

Material Properties (at 1000°R) 

solar absorptivity (tube, fin) 
thermal absorptivity (tube, fin) 
tube thermal conductivity 
fin thermal conductivity 
tube and fin thermal emittance 


.0326 BTU/lb-°F 
.0326 lb/ft 
.0249 BTU/lb-°F 
.0000356 lb/ft-sec 

I.656 


.2 

* 85 / 

10.7 BTU/hr-ft- F 

125 BTU/hr-ft -°F 

.85 


C-5.2 Second Problem Definition 

Analyze the performance of a constant pressure, isothermal, direct radiator 
condenser (with subcooler) exposed to different simultaneous heat fluxes while 
controlling the outlet mixture tenperature by bypassing and mixing working fluid 
vapor at inlet conditions with mixed liquid condensate. 


System Inputs 


working fluid 

flow rate 

type of condenser 

average condensing temperature 

inlet quality 

degrees superheat 

desired outlet mixture temperature 
type outlet mixture temperature 
control 

thermal environment 

1) solar incident fluxes (segments 
1 through 6, respectively) 

2) thermal incident fluxes (segments 
1 through 6, respectively) 

maximum allowable Mach number 


mercury 
13.1 lb/min 
constant pressure 

io6o°r 
1.0 
0 R° 

850°R 

proportional bypass 


430, 200, 70, 150, 70, 

200 BTU/lb-ft-°F 
0, 0, 30, 60, 30, 0 BTU/hr-ft- 

0.8 


Radiator Geometry 


configuration 
tube count 
number of segnents 
tube inside diameter 
tube outside diameter 
circumference (at inlet) 
circumference (at outlet) 
fin thickness (at inlet) 
fin thickness (at outlet) 


cylinder, central fin 

24 

6 

.26 in. 

.50 in. 

16.0 ft 
16.0 ft 
.01 in. 

.01 in. 
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total length 
tube material 
fin material 


Fluid. Properties (at 1060°R) 

latent heat 
molecular weight 
gas constant 

reference saturated pressure 

reference saturated temperature 

liquid conductivity 

liquid density 

liquid viscosity 

liquid specific heat 

surface tension 

vapor specific heat 

vapor viscosity 

specific heat ratio 


Material Properties (at 1060°R) 


solar absorptivity (tube, fin) 
thermal absorptivity (tube, fin) 
tube conductivity 


-M-* wo. v x ujf 


tube and fin emittance 


9.0 ft 
3^7 SS 

ifl n j ty^th 


127 BTU/hr 
200 

7*7^ ft lbf/lbm °R 

5.3 psia 

104l°R 

8.0 BTU/hr-ft-°F 
820 lb/ft3 
.00059 lb/ft-sec 
.0326 BTU/lb °F 
.0326 lb/ft 
.02k9 BTU/lb °F 
.0000356 lb/ft-sec 
I.656 


.20 


.85 

10.7 BTU/hr- ft -°F 
125.0 BTU/hr-ft-°F 

.85 


0-5*3 Isothermal Performance Input Data Sheet for Sample Cases 

Figure C-9 shows the input data sheet prepared for both sample cases defined in 
Section C-5.1 and C-5«2. The two sets of inputs can be run without program 
restart since both use the same program. (See Section 6.9.1 for detailed 
instructions for preparing the input cards.) 


Each card on the data sheet has been given a sequence number in the left m«-r gin 
to aid the card by card description that follows. 


Card 1 . General comment card for first set of inputs. 

Card 2 . The 1 in column 2 indicates that only one set of simultaneous thermal 
environments is to be considered. 


Card 3 . The 6 in column 2 indicates that these are six simultaneous sink 
temperatures or heat fluxes. 

ford b through Card 9 . The negative numbers in columns 1-10 show that incident 
solar and thermal heat fluxes are to be considered. Columns 11-20 show incident 
solar flux values; columns 21-30 show incident thermal flux values. 
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Card 10 . Eight ten-digit fields of given inputs. 

Card 11 . Eight ten-digit fields of given inputs. 

Card 12 . Eight ten-digit fields of given inputs. 

Card 13 « Columns 1-60, six ten-digit fields of given inputs; columns 6l-70, 

the value for NOS shows that four different heat flux combinations were used. 
Columns 71-80, the zero value for PHP shows that mixed outlet temperature 
control is achieved by segment action. 

Card 14 . Columns 1-20 and 31-60, five ten-digit fields of inputs; columns 21-30, 
the zero value for TCG shows that a constant inventory system is analyzed. 

Card 13 . Columns 1-4, value for PUNT. 

Card 16 . General comment card for second set of inputs. 

Card 17 . The 1 in col umn 2 indicates that one set of simultaneous thermal 
environments is to be considered. 

Card 18 . The 6 in column 2 indicates that there are six simultaneous sink 
temperatures or heat fluxes. 

Card 19 through Card 24 . The negative numbers in columns 1-10 show that incident 
solar and thermal heat fluxes are to be considered. Columns 11-20 show incident 
solar flux values; columns 21-30 show incident ther m al flux values. 

Card 23 . Eight ten-digit fields of given inputs. 

Card 26 . Columns 1-10 and 21-80, seven ten-digital fields of given inputs; 
columns 11-20, the zero value for LCG indicates that the system is of the 
constant pressure type. 

Card 27 . Eight ten-digit fields of given inputs. 

Card 28. Columns 1-60, six ten-digit fields of given inputs; columns 61-70, 
the value for NOS shows that four different heat flux combinations were used. 
Columns 71-80, the 1.0 for PHP shows that the outlet mixture temperature is to 
be controlled by proportionally bypassing and mixing of vapor with the outlet 
condensate. 

Card 29 « Columns 1-30 and 4l-60, five ten-digit fields of given inputs. 

Columns 31-40, since the average condensing temperature (TCG) is given in a 
constant pressure system, no approximate average condensing temperature is needed 
and the value of zero must be assigned to TCAPG. 

Card 30 . Columns 1-4, value for PUNT. 
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C-5-4 Isothermal Performance Sample Case Outputs 

The outputs of the sample cases defined in Sections C-5.1 and C-5.2 are shown 
in Figure C-10. 

The outputs for the two separate sets of inputs are separated by the fixed input 
block printout. The output for the first set of inputs (segaentation; constant 
inventory) is shown first. It consists of the fixed input block followed by 
four groups of output. Each group has the average of the sink temperatures of 
the operating segments specified. 

The first group shows the radiator operating with all six segments. The mixed 
outlet temperature (T0M3X) is 643 .4°R which is less than the specified target 
temperature (TMIXG) of 800°R, therefore, automatic segmenting should occur. 

The next three blocks of output show the radiator operating with 5, 4, and 3 
segments, respectively. The corresponding mixed outlet temperatures (TOKCX) are 
675 *7^, 736. 7°R and 817. 3°R* With three segments in operation, the value for 
TMIXG was exceeded and the anlysis completed. 

In all but the last group the Mach number specified (FSV) is exceeded as 
indicated by the message - MACH ... IS TOO HIGH . . . WARNING. However, since 
these groups did not produce a proper outlet temperature , no problem exis ts. 

The zero value for TMIXX is meaningless since this variable is not applicable 
to cases using segmentation for temperature control. 

The output for the second set of inputs (proportional bypass; constant pressure) 
follows the second block of fixed input printout. The output consists of four 
groups with all segments operating but with different total mass flows thro ugh 
the condenser tubes. 

The first three groups of output show mathematically correct solutions which 
may not be physically possible. This is true for the first group where TMIXX 
is higher than the temperature of the bypassed vapor (THETA for the first group 
equals . 25 ) . 

The second group used a negative THETA (-.01857) which is also physically 
inpossible. The third and fourth groups show physically possible solutions, but 
only the last group contains the final answer where the value for TMIXX (846. 7°R) 
falls within 1.0$ of the specified target temperature of TMIXG = 850°R. 

Total running time for the above sample case (two sets of inputs) was 185 seconds 
on a UNIVAC 1107. 
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SAMPLE CASE NO. 1. CENTRAL FIN CONE FUEL CELL DIRECT RADIATOR 
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SAMPLE CASE NO. 3. OPEN SANDWICH FLAT PLATE RADIATOR, WORKING FLU I D-MERCURY 
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APPENDIX D 
PROGRAM STRUCTURE 


Each of the five programs consists of a main program and two small subroutines 
"TABLE" and "CROOT." "TABLE" generates geometrical and fluid parameters using 
the "PUNT" input. "GROUT" solves a system of linear simultaneous equations 
using the method of Prescott D. Crout. These two subroutines perform the same 
function in each program, but the form of the subroutines is not identical in 

all cases. Fortran IV format has been used throughout. No sense switches are 

used and each program will run without operator intervention and return to 
monitor control when completed. One input and one output tape are used and 
are labeled by the symbolic references "ITPl" and "ITP2", respectively. There 

are two cards in the beginning of each main program which define these symbols 

and are now set to 5 and 6. Sizes of the programs can be estimated from the 
knowledge that each fit comfortably on a 10,000-10 Deci mal Digit Word IBM 7070. 
Until experience with the programs enables the user to make more accurate 
est imat es, running times on a UNIVAC 1107 are estimated as follows: 

Design Programs 

Fuel Cell - — 7 min/lOO designs 

Isothermal ' — ' 4 min/lOO designs 

Prim/Sec — • 5 min/lOO designs 


Performance Programs 


a) Fuel Cell ^12 seconds per segment calculation where the number 
of segment calculations equals: 

s (s + i) _ f (ns) (s)] hrn) (s) - J 
2 2 

and where (S) is the total number of segments and (NS) (S) is the 
required number of operating segments to produce the proper outlet 
temperature. The maximum number of segment calculations is: 

(s) Del + J 

2 


b) Isothermal (with segmentation) ^ 8 seconds per segment calculation 
where the number of segnent calculations equals: 

s (s + 3) _ Qns) (S)] C(NS) (S) + H_ tl 
2 2 


The maximum number of segment calculations is: 


(s) Qs) + 3 ] 
2 


D-l 
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c) Isothermal (with proportional bypass) ^30 seconds per segment. 


D-l. Design Program, H 2 -H 2 O Fuel Cell Direct Radiator-Condenser 

A simplified flow chart (Figure D-l) for the fuel cell design program is given 
to aid the user in following the program and source deck printout (Figure D-2). 

D-2. Design Program, Isothermal Direct Radiator-Condenser, with Subcooler 

A simplified flow chart (Figure D-3) for the isothermal design program is given 
to aid the user in following the program and source deck printout (Figure D-4). 

D-3. Design Program, Primary/Secondary Isothermal Direct Radiator-Condenser 
with Subcooler 

A simplified flow chart (Figure D-5) for the primary/ secondary design program 
is given to aid the user in following the program and source deck printout 
(Figure D-6). 

D-U. Performance Analysis Program, Hg-HgO Fuel Cell Direct Radiator- Condenser 

A simplified flow chart (Figure D-7) for the fuel cell performance program is 
given to aid the user in following the program and source deck printout 
(Figure D-8). 

D-5. Performance Analysis Program, Isothermal Direct Radiator- Condenser, with 
Subcooler 

A simplified flow chart (Figure D-9) for the isothermal performance program is 
given to aid the user in following the program and source deck printout 
(Figure D-10). 
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COfgWg* FLOW CHART - FOB, CSLL DEBIGH PBQGRAM 


READ INPUT 



COMBINATION AT \ 
OF END/ 

DIIN, N, WINA / 


DPLOO 


x^LCMIKN 

<LC 

sKLCMAX . 


'"WMIN^ 

<W 

XWMAX. 


SOLVE T & 
TF MATRIX 


NO ^ EQUATIONS^ 
“^^CONVERGENT 


^TFMIN ^ 
<TF 

nOTMAXx 


WRITE 

OUTPUT 


ERROR 

MESSAGE 



Figure D-l 
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SOURCE DECK PRINTOUT 
pm CELL DESIGN PROGRAM 


'DTRFnSTM 0(34 , 33) . RIFl) . CfZT) » TSR (S.HT'TTmr. ROC ( 2i) , IM 
1 FQCF(2l ,6).WW(5>,TSIN<20>,GQ<20,2),H<33),T!TLE<16) 1 HOI 

COMMON! C. f, C2 • C3 » C4 , C5 * C6 » C7 » CB » C9 » Zf * 72 . 73 , 74775, T677T77F779". ~ ~TW 


1 Y1.Y2.Y3', Y 4 , I TP1 , ! TP2 . 0 . M , J55 , 1 JS 1003 

FOUIVAIFKCF (WWriTiWl ) r(WWC2) , W?T. CWWT3r, W3) " ' IW4" 

FNSP <A,B> » (A + B) / <2,*(A + B) +C0N2) 1005 

C THE" NEXT 2 CARDS DEFINE TAPE UNITS .FIRST INPUT, 2ND OUTPUT - 1*06 

ITP1 « 5 1007 

I TP? = 6 " ~ ’ IWfT' 

ISL1*0 1 POP 

"TSL2"*"D'"~ TR1TT 


DATA !SB/1,?,3, 8,2*0. 1,2,3,9,2*0,9,53, 74, 10, 1,0, 73, 74. 75, 81.2*0. 1011 

174, 75,76. 02,2*0,73, 76 .77,83, 2*0 ,76,77.84, 3*0,8, 9 , 1 0 , 1 . 7*0 , 8 , 9 .I* , ?1 019 


7. 16. 0. 9. 60. 81. 3. 8. 17. 80. 81. 82.74.88. 0.81. 82. 03. 75. 89. 0.82.83.84. 76 101 3 

3.90.0. 83 .84. 77 .91 .2*0 , 8 ,16 ,17,3*0 , 8 ,16,17. 9,2*0, 16 , 67 ,80, ! 0,8 ,0, 1014 

487, 88, 89, 81, 2*0. 88, 89, 90, 82, 2*0, 89, 90, 91, 83, 2* 0.90, 91, 04, 3*0/ 1013 

831 PEAT) < ITP1 ,6776) T I TIF " " ' 1 016 

WRITE (ITP2.6776) TITLE 1017 

6776 FORMAT < 1 6 A 5 » ' l'OlB 

READ { I TP1 , 10035NTS, CTaIN ( I ) ,OR(I , 1 ) ,RO(Jj_2 )_,_!* inl9 

1 1 , NTS ) - ~ 1020 

inn3 FORMAT! I?/< 3F10.4 > ) 1021 

i 007 F0RPAT(8F10,4) 1 022 

RFAD ( ITP1 ,10n2)EMD0,EMDVIN,PM,TIN,T0UT,0PTOT,Z l <TW,7KF, 1023 

1 RUDF , RHPT , RhOH , TH , ET.EF.FSV.DCMIN.DCMAJ.ELCW , FCfRX ,TlF,»wOlF. 1024 

2 WMAX,WMIN,TFMlKI,TFMAX,DNMIN,DNMAY,nNDF.L,ENMIN,ENMAY,FNDEL ,w!M IN. 1.023 

3 WTMAX.WIDEL.TTG.TAU.FLNPD.EMFF.EMETH, ALPWS, ALPWT 'WZ* 

WRITE ( ITP2,8008)EMDG,EM0\/IM.Pm,TIN,T0UT,opt 0T,7KTH,ZKF, 1 o?7 

1 RMOF .RHTTT , RHOW.TM, ET.FF, FSV.DCM T N , DC W A J , ELC M N , F L CMX 77 1 F , RR (T1 F , 1 0 2 0 


Anna 


"543? 


9 WMAX. WMIN,TFMIN,TFMAX,DNMIN,nNMAY,ONOEL.F.NMIM,FN*AV 1 n?R 

WRITE (ITP2.5432) FN'DEL ' 7 W T M T N , 1 0 3 0 

1 WIMAX.WIDEL.TTG.TAU.ELNPO.EMFF.EMETH, ALPHS.ALPRT 1031 

tCG = TTC " ' 1 "3? 

F0RMAT(3PH DESIGN PROGRAM, H2 * W20 FUEL CFLL , DIRECT R/C /1?H F 1033 
TTXFR“TNPr.T 79 r X 3 HMOG 7 y 5 HMnVIN 10 X 2 WPM 9 X 3 MTINRX 4 HTOllT 7 X 3 HDPTnT 9 'Y 3 WKTH I.034. 
21OX9HKF8X4HRH0F8X4HRMOT/5X7WLBS/M1 N3X7HLBS/M1N0X4WPS I A7X5MQEK R7X31036 
3W0ES R9X3HPSI3X9MP/WR FT R3V9WB/HR FT F3X9HLBS/CU FT1X9VLHR/CIT PT /1 036 
41 0F1 2.4//8X4HRHOH1 QX2NTH1 0X2HET1 0 X2^EF9V 3HFS V7X3HDC M I N7 V3MI3CM A J7V 3 1 0 37 
5HLDFryN 7 X 5RLC31A X 9 x 3 HTIF/ 3 x 9 HUBS / C U FY8x4MI6JCU46X?MPTl Ox?WFTtOx?WFTj 1 031? 
6nX2HFT8X4HINCW/10F12, 4//7V5HRH01 F8X4HWMAX6X4HWM IN7X6MTFM IN7X5HTFHA1 039 
7 V 7 X 5 Hn 1 1 N O 7 V 5 W DTTMF 7 X 3 fl n TTNO 9 XJW V~GRX 3 HN F / 4 XHHLR / CnVFTT 0 Y?HFTITVX 7 TH '4 0 
PHFT8X4HINCH0X4HINCH0X4HINCHBX4HINCHBX4WINCH/1OF12 . 4/ ) 1041 

FORMAT! /’, - •' — — 7Y3H\ C 5Y6 WW TNV ' I O 42 

1 03X6HW I NA F5X6HWIMA OBX3HTTG8X3HTAU6X5H-LN'PD8X3WMFF7X4HMETH6X3HALP1043 
?HS6y5WALPMT/l7X4HTNCH7x4H!NCl-(7X4HINCH7x4Hl NCH7V4HH AYS1 9V3WPR1 8X3WP1 04 4 
3SI/F1.0,0,6F11,4,2F11 ,0,2F11,4//) 1043 


80? 


IF(DNDEL)0n3,BO2,RCI3 
DMDFL = 999 , 


1047 
1 0 4 P' 
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803 lF(ENDEl>805,804,805 

TT*4 EWDEL 8 999, * 

805 !F(WIDEL)807|806,«07 

806 W"I DEL *9997 

807 CONM * EKDG * EMDVJN 

i s- i, ♦< ♦yoogot - 

J * If +<ENMAX-ENM!N>/ ENDEl ♦ , 00001 

K a 1, +<w!MAX-Wlh!Nj/ WJDEl ♦ . 00(101 

I=NTS*I*J*K 

WRITE { ITP2, 8009 ) I 

800 9 FORMAT(/I3,29W INPUT COMBINATIONS REQUESTED//) 

T03l5 = T0UT+3'i5, 

T0460 aTCUT-460. 

T! 31 5*T IN+315 . " 

FM9D6 a 9,06 * EMDG 

Cl 19 • ,0109 #C1 

C14 a 4. * Cl 

23C7E 8 7T"»C7 * ET *r-1.495 

7?C? a 7? *C? 

74X5~ * 24 « C5 « (-.238E-10) 

C ?Z* a .85 » C2 * 7KTH 

C327 ' a " ,00272? * C3 ' ~ 

EMDVE= EM906 /(.1502E+7 * PM # EVP ( - , 02531«T0UT )-1 

EM776 * 776.* E M HG 
TMT a TIN - TOUT 

SRTm a' 'EMOV I*o / ‘ EMDG 

PM144 a 144, * PM 

CON32 a (RH5T~ # FMFTH *E m ETh >*#(-, i 666*667 ) 

TOUT? * 2, * TOUT 

C0N33 aCCN3?/( RHOF *FmEF *FmFF)**< 16*6*667) 

FXCON a EXP (-.01185 * 920.) 

“DCMWJ-* ’17,7 *'DCWIN 
0CMJ3 a '3 7.7 * OC^AJ 

7W*",3 *26 


77C9r 77*C9 

PIMIN a 3,“iT~#“ 76 # 0CM1N 

PIMAJ a 3.14 * 76 * DCMAJ 

“ WN15 a T1'.-C«T * 4. 

C«l? a 12. * C« 

R^OTF a'fiROlP • T1 F * .0417 

TH2 = ?. #TW 

Z?EP = Z2 "i‘ EF 

CON53 a EVP (,0?37 *T0460) 

C5N54 a-^yp TTCJ079 * C TOUT-ISBO yl) 

FEFF a r>. 

TFTEUCFKT +WMIN ♦ TFMAx) 7770,7771,7770 
777 1 FEF F a .4 

7770 RM1 M a ( EV776 + 85.6 * EMDVTN) / COMM 

FMEM a FVOG + EMOVE 

THNSi a PM FMOvTN /( EM906 +EMDV I W ) 
TAV/F a . 5* ( T I N * TOUT) 

TA31 5=TA VF*3!5 , 

CON? a PM IN' » TIM 

RME a ( EM776 ♦ FmOvF *85,6) / EMp.M 

C0N51 a ( CONM/EMEM )#* ,75 
TTWA~8-“56?. ♦ 39.51 *A10G (PIAISA) 

WRITE ( ITP2,706l >T1NSA 

7061 FORMATMOH T 1 MSA IS F10.1/) 


1049 

1050 

105) 

"105? 

1053 

“T054 

1055 

1054 ' 

1057 

~105* 

1059 

'i '060 

1061 

iofe? — 

1063 

1064 
106* 

1 064 

1067 

106f» 

1069 
1 070 
1071 
1 077 

1073 

1074 

1075 

1076 

1077 

1 67W 

j 079 
1 ojjn 
1061 

1 os? 

10 6 3 

1 0 H 4 

1 0H5 

) 046 

1067 
104ft 
1 06 9 

1 090 - 

1091 

109? 

1 093 

1094 
1 096 

1096 ' 

1097 
1 0 90 
1099 
1.100 
1 101 

'll 0? 

1103 

1104 

tin* 

1106' 
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T1N46=TINSA*460. 1107 

CW7T1 ( t y P ( i 0237 *'TTN 44)- E X P "C ITZ J7*TTnrwm ITHE 

TNMTO»TlK'SA«TOUT 1109 

PITWI FT S Wi 4 4 7 CTIN? " ITTH' 

SOW = 6.72 * SORT ( C0N2) 1111 

P71HF - s~'PMl 4 4 / \ RME • TOUT) ill? 

TAVSA s , 5* ( T l NSA * TOUT > 1113 

\T7 FTTRffI T ( 3 ? W 5T0 P - TIN51~N0T 'TTREATEP TH AN TOI7TT ITT* 

! F ( TKMTO ) 171 . 171 ,173 Ill's 

ITT — WRITE ( ITP2.I72 ~ T - — TIT* " 

GO TO 83? 1117 

173 TTMt s UN- TINSA JTI* " 

EMQVAV S EM906 /(.1502E*7 *PM *EXP ( » , 0253HTAVSA )-l . ) 1119 

CTTNT TT TTMT / TNHTO - - TT20 — 

RFTA1 si,* ,45 * 00M1 1121 

BETA? si,* COM! ' " 1T27 

C 0 N 5 0 = FSV * SOW 1.123 

FWs' - EPTTG”'"+ EMOVAV ~ JT24 

RMAV =(Fw776 + 85,6 * EMPVW) / FMMV 1125 

COIVMTTS • T COMM/E )»* ,73 * Tl'2*' ~ 

ROM A V = PM144 / ( RMAV * TAVE) 1127 

no 1205 ITS S 1 , NTS - 11 ZP 

TS s TS J N ( ITS) 1129 

01 S =00 (ITS, 11 TOO — 

OTT = (90 ( ITS, 2 ) 1131 

IFfTS 5 305,304 ,304 ' 1132 

304 TS4 = TS * TS 1133 

’ TS4 s TS4* TS4 1134 

TS = TS4 *« ,25 1135 

Go TO 30 = 9 ” 1136 

305 TS4 s 5.83E+8 *(Q!S *ALPHS/ALPMT + OlT) 1137 

305V WRITE ( I TP? , 4011 ) TS 1 1 3« 

4011 FORMAT ( /7H TS IS FlO.l.AH OEG R//1 1139 

306 "' 01 INI' s 0 N M J N ■' ' 1.140 

1 204 0 M 1 1 8 s DUN *11 i 8E*6 1141 

FKJ _ FNMIN " ' 114? 

120? OTCl = (BFTA2 *F.MOG *3.42 * BETA! * FMOVlN) *60. /FN 1143 

C TWF'T'.TE ITT THF NEXT EO. 1 5 "THE CORR. TO THE THFORFT, HTVL71RR FI3. 

OTC? = 1.15 * 106200, * EMDG * PM **(-1.1121 / Fn 

' FN? s EM «EN 1145 

FM248 = EN'2 * 248, 11 40 

01 INK s Cl IN « EN "■ ' ' ' 1147 

DIMA s .5 * 01 IN « SORT (FN/21) 1148 

^KtKr7T=“ EfWT*71‘*3'n80, " ' 1V49 

011MMS 1 .414 * DIHA 1150 

75N12 « .0833 * 25 * EN 1151 

F. N 5 4 5 * .00545 * EN * RHQT 1152 

Oil N? s D I IN * DTTNN - — ■ " ■ 1153 

OIN11 s DUNN /,11 1154 

DN7KT“ ' t ' CTI NN / 2Y8JF8-4 - - 11-55 

01 IN3 = DI IN2 / 3,06 1156 

" WHITT * CONM / ( ROWTN~i~‘nTTNT"T ' — 1157 

ROy = ROM IN * VMIN 11.58 

\/ME s EMEM / (ROME • DIIN35 - n .50 

VMAV = FMMV / (RQMAV * OIIN3 1 1160 

17V s ROME * VMF — — — — ITST' 

RFEHA s PV * 01 H A * 11,«E*6 / T 0 3 1 5 1162 

REA V = RCMAV * 0 1 IT! * V/MAy # 11 , / TA315 ' 1163 
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23 

23TT? 

2301 

27?" 

231 


26 

261 

26 ? 


263 


2631 

2FS7 


CONB * EMDVlN - EMDVAV 

"IFfREAV - 2B0CM 232 , 23? • — 23 

TF(REAV-4000, ) 2301,2302,2302 

FRAV = ."3157RFIV##',25 

GO TO 231 

FRAV = .00277 * RFAV #¥",322 
GO TO 231 

"FRAV s"?¥, /REAV ; "" — • 

RPAV = COMB / (0N283 #(683,- TAVSA ) ) 

WEFAV ■ VMAV~#SSRT TR0MAV5 '# "CUnS / OTN i 1 

IFJRFAV - 200, > 261, 261 , 262 
tF( wEFAv- 3, I 263, 26? . 26? 

PHI A V « C0M52 

GO TO 264 ~ " ' ' " " 

ORAV = 12,93 * SORT (COMB # ROM AV •( 6B3 . -TaVSA ) / < FR A V * RFAV/ # 
1 (E'mdvAV+FmOG) * TA3i5)> 

I F ( RE AV - 2000,) 2631 . 2631 , 2632 

PHI AV * ( l, + DRAVl ##4, 

GO TO 264 

PHI A Vs" T,5""'+ SORT (.25 ♦ DRAV ) ) ## 4.75 


11 64 

ITS? 

1166 

— irrr 

11 6 « 

1169 

1170 

f ITT"" " 

1172 

1T7T 

1174 

1175 

1176 
TT 7 T 
1176 
1179 
1 1 8n 
lT8l 
118 ? 

1183 


264 


4001 
4 6 02 

7 

1402 


1403 
1407 

T4TTR 

1404 


70? 

7TT3 

7031 

703? 

704 

6 


8 


15 


4003 

4004 


RFE « RV * 0 1 1 M * ll.BE+6 /(TOUT + 315.) 

TF(WT^ CORTOT 5,5 ,4001 ~ ~~ 

WRITE ( I TP2 ,4002 ) 01 IN. EM , VMIN 

FORMAT! 4HP1TM . Fl 0 .TTICXTHM ,F10 ,4,1 nV4HVM I fJFlO , 5 , 1 ?H GT FRV *FOVV ) 
GO TC 12 01 

TF7REFHA - 20007T" T40? ", 1402 ",'1403 
FRFH = 64, / RgFHA 

Gd TO lT0'4 

iF( RfeEHA - 40O0.) 1407 ,1408,1408 

TRF.H = . 00277 *RTFHJ **,372 “ * 

GO TC 1404 

■FRFH r .3Y5"TRHFH2»*.25 
PH1FH » CO\5l 

RF 1 H A = RCV « DlHA #11 .8E+6 / TI315 
IFCREIHA - 2000 . ) 702 , 702 , 703 
FRl H r 6 4 , / RF1HA 


11 84 
"TT85 — 
11 86 

I. 187 
11 8« 
1189 
H 90 

II. 91 

I 1 97 
1TT3 
1194 
1»V8 

I I 96 

1194 
" 11 W 


GO TO 7 n 4 

TFTRE 1 HA"- "TO nr. ) 7031 ", 7032 , 7032 
RR 1 H = ,00277 * RF 1 HA ##,322 
GO TO 704 

FRl H = 0.316 / RE1 HA#* , 25 

WIMA s W I M I M "" 

Z 5 W 3 75 # WINA 

"WTM A ? * ?, *"W] MA 

C0M36 = C0M35 • EM • WlNA 

WttARi a .0633 #" 75 # EM "#T VIMA 2 # 01 IN) *P!MIN 

0P1H s FR1H #ROV * VM I M #WRAR1/CNN77 
WRARE • 7? • W S A R I * PfMAJ 

OPEH sFREH# PHlEH# RV • VME #WBARE/CMM77 
TT15M6" "t CPi"H""+'"PPFH - OPTOT' 


1.200 

1701 

1207 

1703 

1704 
Y7TI5 " 
1706 
1207 

1 ?n» 

1209 


1210 

mi" " 

171? 

1713 


O p LC s 1.08E.4 #( ROV *VM I M „3.* RV #V/ME> - C0M6 121.4 

! F ( OPLC ) 4 0 OT, 4 003,16 " ‘ 1215 " 

URITF. ( ITP2, 4004)0! IN, EN. WIMA, OPLC 1?i6 

'FORMAT ( 4 HD ITT, Fl'O.T ,T OXIHM.FIT) , 4 , 6 X 4 HV] \ r A •TIT] . 4 , 6 V 4 HnP|. C .Fl.O, 4 , 10^1717 


1 MFGATIVE) 121« 

GO TO 12TH? ' ' 1719 

16 ELC * 773, #DPLC * D!JN / ( FRAV #POMAV* v/MAV # VMAV #PH1AV) 1720 

, F(ELC „ X) 271# 273 - ?71 - — f02T 
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271 ! F ( ELC - ELCMN) 4005,4005,272 122? 

~m IMHOx • feLt) 4005,4005,273 1773 

4005 WRITE ( JTP2, 4006)01 IN,EN,W1NA ,ELC 1224 

4 00?--- FTyRMTTT _ 41^n^nn^7^7TTn?'l HN TFT074Y6 X4HW I N A ,Ti;7T47FX4^'PLT:VTT0T471.7 w r225 
1 OUT OF RANGE! t?2* 

GO TC 1200 ~~ 1777 

773 C0N9 • ELC * D I INN! 1?2« 

IF(TTG) 274 “7F ] 27*4 1 1777 

274 TT = TTG 1230 

ttxsTTG ■" — 1731 ' 

GO TO 30 1232 

?8 AP s i7R7 # Z2 * CDN9 ' ' - - 1733 

TT = 3,31 * (AP * TAll/FLMP0>**,25 * COM2 1234 

3* TT? = 2, * TT - 1775" — 

DOIN' = 01 IN + TT2 123* 

C^ Ki 2 = Z5 * WIN'A - ' ' 1277 

COM3 = lfl , 85/ENI 1?3* 

COM4 ■ P5"# - OCTTN 1 7 39 ~ ' 

WIM a ( CCN'3 * DCMINi - CONI4)» Z6 + C0N2 1240 

STOUT a ( COM’ •"#“UTWT J - COM4 )» '76 * CON? ' - " " 1743" " 

I F ( WK A X ) 301, 303 , 301 1242 

TOT COM* s'", 0 P 3 3 *E NT*T? ,* WT w ' * 00 TNT ~~ — !7TT" 

IFIC0N6 - WMJN) 4007,4007. 302 1244 

’30? tF( WAX - CONM 4007,4007 ,707 “ * 1745 ' 

4007 WRITE ( ITP2, 4008 )01 iv, ENi.WIMA, CON* 124* 

4717 8 FORMATTTFOTTNFTP', 4 , 10XTHNF1T1 , 4 , 6X4MWI MAF1 0 . 4 , AXIWW .Fit) ,4,1 3H OUT' 71747 

IF RANGE) 1248 

GO TO 1200 1749 

303 QT*TNMT0*GTCl + QTC?*CIMN79 1250 

CON'* = ¥T7T + WOUT ~ ~~ 1751" 

CON'7 = TAVSA * TAVSA 1252 

CTW7 "s CCM * CON'7 " 1233 

CON 8 = Z2FF * ELC »<C0N7 - TS4 ) 1254 

CON 9 » .2P57E-9 * COIN * CQNB ' 1755 

COM4 = 35 , E + 8 #(QT - C0N9) / (CON* • COM8 ) 125* 

IF( CONB-Ff.Fpy ‘401274012, 307 1757 

307 I F ( 1 , - CON 8) 4012,4012. 30* 125« 

"7717 STRTTE ( 1 TP? , 4 0 1 3 ) D I T N , E M » W I N A , COM 1737 


4 0)3 FORMAT ( 4HD I I NF 1 0 , 4 , 1 0X1 HNFl 0 , 4 , 6X4HW I N AF1. 0 , 4 , *X4HFFFFF1 n , 5 , 1 3W O'jTl’ftO 


y TIF'-PANGFl ‘ ‘ 1761 

GO TO 1200 1262 

308 C0N9 =(FVPVI\-EP0VET / niTNIV " ' ' 1763 

FNIVE = VNF »( RV/M2.1 *REE**,?5) ♦ CON'9/ ( 7 , 54*EL C > > * (CON'9 * 1264 

r rtrKT.—-- TCI TIT * * C - . 33 T 333 T 3 ) 1765 

IFCC5-1.) 31 , 35 , 39 126* 

31 COM 8 ' 2", •' OOIN / C0N6 ' 1767 

F3SP = SORT (.05 * Cf)N!l ♦, 0025) / (CONI *,D + SORT <3,803+ 1, 95*1268 

1 CO N1 5 / ( CONI + 3,91 - ~ 1769 ‘ 

F4SP = SGRT ( , 2 * CONI *,04 ) / (CONI +.4) + SORT (3.24 * 1.8 *1270 

1 COM) 1 <C3XT“*'37FT 1771 - 

F 5 SP * SORT (.48 * CONI *, 2025 ) / (CONI +. 9 ) + SORT ( 2 . 403 + 1 . 55*1777 
i CPM’rr ccoNi ♦ 3,11 — ~ 1773“ 

F*SP = SGRT (.8 * CONI +.64 ) / (COM +i.6)+ SORT (1.44 + 1,7 *1774 

1 COM) 7 (CONI + 2,4) .. . t ?73 

CON? a CO N*/ DO I N 1?7* 

C0N3 a 1. 1 (1, +"Z.*C0N2> 1777 — 

F1.SP » .636* *<1, + COM2 * (1,- SORT <1 . +DO I N/CON* ) ) + .5 * 1278 

1 ' ST AM T SCPT ( 1 , - COM3 • CON 3) T COM ) V ' 1779 
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GO TO 40 

T5 IF<73) 351,39,351 

_35l_ ... _C0N1_* 00 IN / WIN 

C0N2 =" CC^'l * C’ONl 

F3SP * FNSP < ,05«CON1, .0025) ♦ FNSP (1,95 •CON1,3,«03) 

F4SP * TnSP (.2 •CON‘1 • , 04 ) + FNSP ( 1 7^““«tSNiT37?4~T 

FSSP * FNSP { ,45»C0N1. .2025) ♦ FNSP (1,55 •CONl.2,403) 

F6SP * FNSP ( ,B #CCfNj , ,64 ) * FNgP (1.2 •C0M“,T ,44 ) 

FlSP s .3183 *< ATAN (1, + 4, /CONI) + ,2146) 

5(1 TO 40 - — 

39 F3SP «1. 

F4SF sT. ' 

F5SP *1. 

' F?5P »1 . - 

FlSP = 1. 

4" W'WTl Js, 83333 * WIN ♦ , 16657 * WOUT 

WW(4)s, 66667 * WIN +.33333 • WOUT 

WW(2) = ,5 * CONS • ~ - 

WW(5)=. 33333 » WIN +.66667 • WOUT 
WVrr3T=.TSF67‘ * WIN +.87333 « WOUT 
C CALC. EQCF -RDC - B 


CON3 = FF * ELC 

C0N4 = FlSP # DO I N * FLC # Z3C7E 


COW S 74C5 « COM3 
C0N6 * 72C2 # COM3 

* DOT N 





W7njmT = ~T,T5Y7~ 
J =1 +1/7 






C.0N7 = CONS * WW( J) 

ROC(T) = n. 





POC( 1+1 ) e C0N4 
RDC ( I +2 ) = C0N5 






“pocrmr-sr - , 95 F -1 1 

» C0N7 

' #• 

it 6 

♦ 

F3SP) 

RDC( I +4 ) = =1 • 9E-1 1 

* CON 7 

* 

( C6 

♦ 

F4SP) 

9DC( 1+5) = -7.55F-H 

* C0N7 


(Cft 

♦ 

F5SP) 

3010 RDC ( 1+6) = -3.8 E-11 

♦ CON 7 

• 

< C6 

+ 

F6SP) 

DD 3020 I* T .21 

‘ - 

— 


— 

— 


3020 0( 1 ) = TS4 # RDC( I ) 

CTWT -^ FT.r » 7KF 
COMB = 7KF / ELC 

WD~ VTJOTN V 'O' UN ' ~ ‘ ‘ 

DPD * DO IN ♦ DIIN 

CON3's ;i4H # DI IN * FtC / ( VTT24 ♦ DMD VZKTH) 
COM4 = C3 • C0N3 
CONS 's~CT4”"A TTQN3 

COM3 = DMD +DP0 * ZKTH /F.LC 

Zrm*T -s“C22K * FLC * DHD/DPD 

CON6 s C327 • C0N3 

CONI 0 s C).19 * COM3 

CONll=,5#OTCl 

TONl ?='5Tr7 

CON) 3 e COM 2 * CONS3 
CONI 4 s -FxC'ON * CONl? 

C0N20 * - C0N12 +CON54 

DO 3*1501" ■ 1,3 
_J * 7 * I 
K «~4" + 1/3 
CONI s CCN7/WW( I ) 

C0N2 = Ccn8«wW( K ) ' ' 
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F0CF(J,1) s ,952 • COM! 133* 

FOCFCT.S) s ,00834 — • "CON 2 T779 

EOCF(J,?) s * EOCF(J.l) - EQCF < J , 3 ) 1340 

WCFTT-J. '.O' « i.334 • C®Nl JW‘ 

FQCF ( J«1 , 3 ) ■ EOCF(J.l) 134? 

Eo£F( J-1,4) * ,TTff874"Tr-C(5W2 T3*3 

EOCF ( J»l ,? ) • - EOCF(J-l.l) - EOCF ( J*i , 3 ) - EOCF ( J-l , 4 ) 1344 

EOCF ( J-? , 1 ) “■ -2.T7-4-CDNI - fT4T " ' 

FOCF ( J»? , 3 ) t EOCF(J-J.l) 1346 

F ^ CF ( j.2,4) a ,00417 * C0* r 2 T3T7 

EOCF ( J»? , ? ) s -FQCF ( J-2» 1 ) - EQCF(J-2,3) - EQCF(j-?,4> 134* 

EOCF C J— 3 » 1 > « A, 67 * COM! ' " 1T40 

EQCF(J-3.3) * FQCF ( J-2 » 1 ) 1 35" 

"FOCF { J-T* 4)8 , 0020*5 » CUN? T35r 

F OCF ( J-3 # ? ) * -EQCF ( J»3 . 1 ) -EQCF(J-3,3) - EQCF(j-3,4) 135? 

EOCF( J-4,3) * FQCF ( J-3 , 1 > 1353 

EQCF(J»4,t) « C0N9 1354 

FOCF ( J-4 , 4 ) b CONjA TT55 

FQCF(J-4,5) s COM4 135* 

FOCFfJ-4",?) b - E0CF(J-4,«) - EOCFCJ-4,5) - EQCF“CJ-4,1) T357" 

.J s J - 5 175* 

" FOCF(J.l) s C0M5 - - T359 

FOCF ( J i 3 ) s 2. » C0M9 1360 

“FOCF (J, 4) s COMin ' """ T36T 

EOCF ( J, ? ) s - EOCF(J.l) - EOCF ( J , 3 ) - EQCF(J,4) 136? 

" J 8 j-i •• 1363 

FOCF ( J , ? ) s CON5 1364 

" 3050 F OCF ( J , 3 ) s 2. * COM4 1 365 

F0CF(l7.5)s,33333333*EQCF( 17,5) 136* 

0(17 ) 8 -EQCF (17 ,5 ) * TOUT? + B(17) "" ~ 1367 

FOCF (16.1) = , 33333333»FqCF( 16,1 ) 136* 

B(16) 8 -FQCF (16,1) # TOUT? + BC16) 1T69 

EOCF (14,4) 8 EQCF (21,3) 1370 

EOCF (14 . ? ) b FQCF (14,?) - £OCF( 14,4) H7l 

FOCF (13.5) s F QCF (20,4) 137? 

FOCF (12,5) 8 FQCF (19,4) 1373 

EOCF (11,5) b EQCF (16,4) 1374 

E0CFTl(r.63 * FQCF(17,4) ... 137* 

F OCF (0,5) * FQCF (16,4) 1376 

no 3060 J 8 9,13 1377 

3060 FOCF ( J , ? ) s EOCF ( J , ? ) - EOCF ( J+7 , 4 ) 137* 

EOCF (0,4 ) 8 CONI 1 1370 

R(M = B(fl) * T0IJT2 * COMll * ,33333333 1 T *0 

FOCF-nr.T) 8 -.33333333 «CONM- COM3 - F.OCF(S, 3) 13*1 

FOCF (1,1) s -COMll - COK'5 - EOCF (i, 3) 13*? 

FOCF (1,4) z -COMll 1353 

R( l ) = F» ( l ) -C0M1 *2. * T I MS A - COMl?*FyP (,0?37 *T!M46) 13*4 

FOCF (15,1) b COMll • 1 ,3333333 - ."3333 333T«TUn N5+ ‘TOC F M 5 ,TD T3F5 

B(l6)8B(l5) + ,6666666 7*TOUT#(2,#C0Mii*eorF(l5,2) + F.0CF(l5,3) )+COMi J i 3*6 

Z OTITTATCTr ^ JTET^-VTTE^FyPUI^EMTr AT. UNKNOWNS AND "M I T|_ T TPETETT" rtN KTJO STM'S j TB7 

C CONSTRUCT DERIVITIVF MATRIX 0 13** 

C ?1 FQIIATI OKS , 16TM IWKNOWW T5 TWTCK'’E55 ,?0 TFMPEOffTU’TE T7NK*rnwMS~T3*9 

JNSRsl 1 39 n 

J65 sO 1391 

TF( TSL?)39l ,391,399 139? 

3£1 T( lE)8;m TT73- 

TMSRs? 1394 

39? T( i ) sTIM'SA - - 1395 
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T(g) = TAVSA 

1396 


mvwrr ( 15 ) ' “ ~ 

YWj 


T( 15)* ,66666667 » TOUT ♦ ,33335333 * TAVSA 

139* 


50 780 1*1 .'g " ' 

1399 


T(I+1) = TCI) - 2.5 

i4on 


T( 1+8 ) = f(I*7)«* 2 t 5 

T4TK 

7 r n 

T< I +15 ) * T( ! +14 ) •* 2.5 

14Q? 


00 7Bf 7*3.6 

" T4TJ3' 


t ( i+i ) *T( 1 )«in, 

1404 


T (I+B)*T( !+7)^10# 

fxnF - 

7*1 

T( I+15)=T( I+14)-10, 

1406 


T(15)*SAVF ' ' 

'1407 

399 

!^L2«0 

1.4 0« 

4nn 

1SL1 *0 ~ “ - 

14 VO 


no 4oi j* 1,21 

1 4 1 n 


CCJ) = T( J) * T ( J ) * f(J> 

1 4 1. 1 


no 4oi K*i, 2 i 

141? 

401 

n ( k , j ) *o , 

1413“ " 


DO 410 K * 1,21 

1414 


TF s 4, • RITC(K) * C(K) 

1415 


0(22, K) = 6(K) „ ,?5 #TF * T(K) 

1416 


0(15, K) s 0, 

1417 


no 409 LI * 1,6 

1416 


J = ISP(Ll.K) 

1 419 


TF(J) 410, 410 . 402 

1 420 

40? 

tm = r. ■ 

1421 


J70 = J- 7 n 

1427 


T F ( J 7 0 ) 4 0 4" ,~4q 4 , 4 0 3 

1423 

403 

j = j7n 

1 424 


TM = T(15) 

’ 1425 

4H4 

TP ( J-50 )4041 , 4Q41 ,404? 

1 42B 

- 40*2 

JrJ-50 •' 

1 427 


0 ( J, K )=TF+t3CF( K , 2 )-T( 15 )*feQCP( K,3 ) 

I 4 ?* 


2? .10*0(22. KT- E OCF ( K , 2 > *T ( J J +EQCF ( K , 3 ) * T { 15 ) *T ( J ) 

4420 


n(15.K)*C(i5,K)-T( J)*EQCF(K,3> 

143P 


GO TP 409 “ - 

1431 

4041 

aCH= TM * EGCF(K.Ll) 

1 437 


I F ( K"- j 7 4'(T6 405 , 406 

1433 

405 

0 ( J . K ) * ACR+TF 

1434 


571 “TO 407 

14 3*3 

406 

O(J.K) = ACR 

1 43* 

" " 4 07 

0(2? ,X) " r DC 22 , F ) - T(J> * AC R 

1437 


TP(TH - 1, ) 408 , 409 , 408 

143* 


‘ 7rrT57TO'~s ottstk) + focf(k,li)* T(j) 

1439 

4ng 

continue 

1 44n 

410 

CO'NTIMjF 

144^ 


COM 5 * FXP (.01185 • T(D) 

1447 


C0M16 a EXP" (.01185 • T<«)) 

1 4 47 


CONI 7 a C0NI1 4 # C0N15 

14 4 4 


~C5N1 8 “ = CT1N 17 * ' C0N16 

1 44^ 


C0N19 a ,01185 * C0N18 

144* 


C0N71 a EYB (.0158 *T( 8 ) ) 

1447 


C0N22 a C0N20 * C0N21 

1 44* 


C7W23 * T0l'5B # CQN22 

14 40 


0(22.1 >sD( 22, 1 ) - CONI 8 

1450 


"0 (227TTJ aT!T2? , 8 ) + CONI B-C0N22 

1431 


0(1,1 ) * 0(1,1) ♦ CONI 9 

1 45? 


0(8,1 ) * 0(8,1 ) ♦ C0N19 " ‘ 

1453 


FIGURE D-2 (cont'd) 
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0(1.8) ■ P ( 1 , ft ) « CONI 9 1454 

Otfl.H) » O(B.B) m C0N19 * C0N 2 3 1T5? 

0(27.15)* D(2?,15) * C0N22 1454 

‘ ~ 0TB ,1 5>g~ 0(8,15) * C0N 2 3 ~ " ' T*$7 — 

T JS=1 145B 

CTDT CR0LT(?TT TT?9 

GO TO (4112.6700). IJS 1460^ 

GO TC (391.6201.4111 ). INSR 1467 

'■ 6701 ' !NSRs3 - Y4T&3 

T( 1 5 ) « , 1 1464 

- ' GO TO 397 ~ 14TST5 

4111 WRITE < ITP2, 4113)01 IN. FN.WINA 14 66 

4113 F'TRWAT ( 5H 0! TNF9 , 4 ,Y0X IWFIP . < ,' CXWVtMAFTO , 4 , 41VT TO" CYCLES , 71. EOIJA1467 

1TI0NS NOT YET CONVERGED/) 146« 

GOTO 1700 ' 146 9 

411? I F ( ABS (H(15) )-.0O01 ) 4114, 4115.4 US 1470 

4115 — TBU *1 ' “ * 1471. 

4114 on 415 K*1.2l 147? 

TfK) ‘ s TtK ) + W(K) ' T 4 73" 

I F ( A BS ( H ( K ) ) -r 1. ) 415,414.414 1474 

414 I <11.1=1 " “ Y475 

415 CONTINUE 1476 

4116 !E( ISLD44.44.400 " ' 14 77 

44 T30 = ,33333333 *(TOUT2 ♦ T(ft)) 147ft 

TF s T ('15')' 1470 

IF(TF - TFNIN) 4009,4009, 4107 1480 

4107 f F ( TF M AX ) 4109,4108,4109 1 4A1 

4109 I F ( TEN A V - TF ) 4009.4009. 410« 148? 


4009' WRITE ( ITP2, 4010)0! IW.EN.WINA , TF 

4010 FORNAT(5H DI INF9,4,inXlWNF10.4,6X4HWlNAFl0,4,6X?HTF,F10,5.13M 

ynr RANGE" ) 

GO TO 1700 

410B C0N31 s 27C9 # TF 

I 517*1 

TFKF = TF #7KF 

PSA 1 = 6.65BE-7 * EXP (.07531 * T( 1 ) ) 

PF A 7 = 6 .65BE-7 • EXP ( , 07531 T ( 8 ) ) 

PSAi = 6.65BE-7 * EXP (.07531 * T30 ) 

FMOvi = FP906 /( PM/PR41 -1 « ) 

EMDV? s E M 9 0 6 / ( PM/PS A?»l , ) 

F w0v3 * Ev9 0 6 / ( PM/PS A3-1 , ) 


1483 

OUT 

14 ft 5 
1 4«6 
1 4 R7 
1 4rtfl 
1 4 89 

1490 

1491 
149? 
14 93 
1494 
1 495 


C0N71 * F NQG * FMPV1 1496 

TPTN77 * EMD(T'+ EMPV? " ' f4~97 

COM73 s ENDS + F.MnV3 1498 


RNf * (Fv776 + B5.6 *FWOv1 )/ CON?l 
RM? s ( EN776 ♦ B5.6 •F.MDV? )/ C0N72 
R M 3 a ( F V 7 7 6 + fl 5 . 6 *F MDv3 ) 7 CO N ? 3 
TlSWa T ( 1 ) * ,8333333 * TlMT 

T75U* TCH") "+ .5 ' * TTTT "" 

T3SHs T30 + ,1666667 • T I M T 

RON1 s PV1 4 4 /( RMl • T1S W ) 

ROM? e PN 1 4 4 /( RM2 * T7S U ) 

P0N3 s PM 144 /( RN3 « T3SW) 


V M 1 a C0N71 / (ROM1 * niIN3) 

* C0N22"7" ( R0 M 7 “*'"D 1 1 N 3 1 

V M 3 a COM23 / (R0N3 * DIIW3) 


RFi a RONl « VMl # ONllft / T TIBET + 315 . ) 


1499 
1 500 

1501 

1 50? 

- 1503 

15Q4 
— T505 

1506 

1507 
1 50 8 

r5TT9 

1510 

1511- 


FIGURE D -2 (cont’d) 
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RE2 s R0K2 • VM2 * 


ONUS 

POT3 * VM3 # DM118 

■ Et*DV I N « FMHV1 

■ EPDVI'N - FPIDV2' ' 
* E^DVIN - EMDV3 
*“V(*1 *“5SRT (POT 17 
a V^2 • SORT (R0M2) 
■' V*3" * SORT (R0H3T 
COM 7 / ( DM283 • 

a C0MS“7' TDN2B3 * 
a COM 9 / (0M283 • 


7? 


"PF3 8 
CONI 7 
“POTlB 
CONI 9 
"WF7“ 

WEF2 
' 7/FF3 

RF 1 s 
RF? 

RF3 

lF(RFl - ”200077 
FR1 * 64. / RE1 


/ ( T2SH + 315, ) 


# C0N17 / UTMll 

• CON18 / D I Nil 
« C0N19 / 01 Nil 

(683, - TCI))) 
(683, *T(R) )7 " 
(683, « T305) 


72,72 722 


7?? ! F ( RE 1 - 4000, > 7201,7221,7221 

7201 FRi * ,|Tp777»REl ##,322 " 

GO TO 723 

7221 FRi s ,316/ RFl •• ,25 - 

723 ! F ( RFl - 200,) 724,724 ,726 

724 TF ( wEFi - 3D 725,725 ,726 

725 ORj^ s 1 2 , 93*SQRT ( ( C0Nl7#( 683 , -T< 1 ) ) *ROMl ) / ( FRI *RE1 * ( E ^DVl+F W 0G ) 

r CTl S» + 315,7“) ) - 

TF(RE1 - 2000.) 7251 , 7251 , 7252 

7251 oMn = { j , + ORt ) *# 4. 

GO TC 73 

>252” PU11- 3 (.5 ♦ SORT ( , 25 + DR1 ) )** 4.75 

GO TO 73 

726 PHI i s (CQNM/ C0N21 )•* ,75 

73 IF{R£2 - 2000,) 731 ,7>j ,732 

731 Ft?? s 64, / RF2 - - - 

Gn TO 74 

737“ TFCRE? - 40On,) 7321,7322,7327 

7321 F^? S ,00277 * RF2 ## ,322 

GO TC 74 — - - 

7322 Fr? s .316/ R&2 *• ,25 

74 !F(RF2-?nn.) 741 ,741 , 743 

741 !F( w£F2 - 3 , ) 742 . 742 , 743 

7T2" OR7si7,“gy#SRRr“UC0Nl8#t6«3.+T(R) )#R0M?)/CFR2*RF2*(FMnv?+FMnG)* 

1 (T2SM + 315, ) ) ) 

TF(RE2 -?FffB.) 7421, 7421 .7422 
7*21 PMl? = (1, ♦ DR2)## 4. 

' GO TO 73 - 

742? PMl? s (.5 + SORT (.25 + DR2 ) > ** 4.75 

GO "TP '75 ~ 

743 PH 12^ s ( C0N W /C0N22)##,75 

75 ! F (RF3 - 2000 ,) 751 , 751 , 752 
751 FR3 s 64 , /RF3 

“GO T7TT6 

75? IF(RE3 - 400 0, ) 7521,7522,752? 

7S?1 ~~ FP3 * ".00777" #' RE3 **,322 
GO TO 76 

7577 FR3" s" ,316 / RE3 ** ,25 

76 T ^j_ R P3_ “ 200, ) 761,761,763 

? F ( ve F 3 3 ,T 7"6 2 . 762.763 


761 

762 


0R3_ * 12.93 • SORT ( ( C0M9*( 683 ,-T30 )*RON3 ) / ( FR3#RF.3* ( ENDV'3+F + DG ) 

1 " TT38W ' ♦ 315. )) ) 

!F(RE3 - 2000,) 7621, 7621, 7622 
76?i phi 3 s (T7 +DR3) ** 4, 


151? 

1513 

1514 
'T5T5 

1516 

TOT' 
1 5 1 « 

152" 

“TOT 

152? 

'1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 
*153? 
"1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 
1 54? 

1543 

1544 

1545 

1546 

1547 

1548 

1549 
1 5?n 
1 551 
155? 
1553 
j 554 
1555 
155* 
1557 
1 550 
155*3 

I5*n 
1561 
1 56? 
1565 
1 564 
1565 
*1 566 
1567 
156* 

1569 


FIGURE D-2 (cont *<!) 
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GO TC 77 

~T*7 ? — PW15 = — l ,5' "♦""SORT 
GO TO 77 

7*3 PWiVs rc'0N^/C0N23J **.75 

77 Oil NX s <(FR1 • PH1J • C0M21 


F.25 * I3R3H ** 4.75 


1570 

157 ^“ 

157? 

1573“ 

* C0N21/R0M1 ♦ FR2 *PH12 *C0N??#C0M??l574 


7702 


'otimxiditn'X) * PLt" 


61 no 


* FR 3 * PHT 3 
1 F ( TCG ) 7701 , 7701.7702 

71T"T"7 TDT1NX + TT21 70TTN1 ** , 23 ' CO*J5T ~ CTTOTr " 
OOI NX « D 1 1 NX * 2 , * TTX 
"WTNX iT'75V/ ♦ Z65 * CDCMR3 /EM - OOTNX) 

WRRIX « Z 5 M 2 *<W!M 2 + OOJMX) ♦ PIMlN 

wPPFX *75 * WBP1V + PIMAJ 

WOLJX s 75 W * 766 *< 0 CMJ 3 /EN *» DOINX) 

~FM 7 = "FX 5 T 5 *" (TTOlwy »' tJOTNX 
WPW * wpR I X + WBREX 
774PP 8 , 5* C 0 N35*FN« (W JNX+W 0 U X ) 

FMF = .00347 * ELC # RHQF * TF 

F M lF =” FLC “*"RH0TF • Wff * 

FMHS r .00545 • RHOH *WPW * TM? *<TW 2 4 - ?.* DINA) 

F M CR - FPT + FMF + PM1F + FMWS 

AOR s .5 * ELC * wPW 

RNOMT s EMOVE /FNOC 

OTOT = EN * QT 

00 6100 I * 1.21 

CC I > =-T(l) * T < 1 3 * T<n * Td) + TS 4 


*<C«1? « WPW + 7 7 ARP ) 


1*76 
15 77 
157ft 
ITT*?' 
1580 
T5FT 
15ft? 
I5*T 
1584 
f 6 HS 
1586 
15R7 
158ft 
T 5 RP' 
1 590 
1591 
159? 


"OF TOT s 
CONI?2 * 
00 6106 
sum so, 
00 


" 0.0 

52.6E+8 / 
J * 1,3 


(7? * F.F « FLO) 


6101 I = 4,7 
1SUP = ( j-1 ) * 7 * j 

6101 Si |M s SHF + ?. * ( ROC ( 1 Su« ) 
GO TO (6103,6104,6105) , J 


CC T SI IB > ) 


61 06 


W3 

#F.N 


* CCT77) 


1 605 


6103 FFF1 s -CON?? « SUN / ( W1 * C(3) ) 

GO T C 6106 

6104 FFF? = -C0N?2 * SUM / { W? * C(10) ) 

GO TC 6106 

"6105 FT FT s -C0M72 * SUM / ( 

GFTOT 8 OFTOT + SUM 
OTTCT s OTOT - OFTOT 

WRITE ( I TP? , 1707 ) 0 I I N , FN , W I N A , 5H I N . V M I N' . 01 1 N« , 01HA, 

1 WRP ry , DPIR.FMDVE , SHOUT , V"E , 011NH , DIHA ,'WBRFX » DPFH , njivv ,TTV700T\!XT606 
?.FLC,nPLC,WlNX,WOUX,TF,T(l ) ,T< ft ) . T30 , OTOT , OFTOT . QTTOT . FF.F1 . F F F 2 1607 

r"WPTTE" TTTP2 ,T708 ) " - - 

1 FFF3,ENVF.,EmT,FmF,Em1F,EMHS,FMCR,ACR 1^09 

F^RMATC /11X4HDI l N1 4X1 HN|t 1Y4HW I N AT J X4HSH I NI 1X4HVM I N10X5M0 I T NR1TX4HH1 61 0 
1 1HA1 0X 5HWBR1X/11X4HINCH26X4HINCH24X6HFT/SF.C11X4H IN'CNl 1X4H I NCW1 3X?H16H 
?FT /RF 15.5/1 1X4 HOP I HI 1 X4HM0 VE inX5H5ROUTT7X3HVMF 1 0X5HH J FHF i j XAwnEH A 1 fBT?' 
30X5HwB ARE l lX4HPPFH/l?x3HPS!ftX7NLPS/MIM?4X6HFT/SECll X4HIMCH1 2X3wjK'i 613 
'4.13X2WFT12X3PRS I7BFi;5 ."571"rT)r5H0 !'T NXT?X3HTTXl-riy5HDn T 6TXTTT7Hr.C 1TX4HDPT *T 4 
51.01 1 X4NWINX11X4HW0UX13X2HTF/11X4HIN0H1 1 X4H I NCH1 1 X4H I NCH1 3X2MFT1?X31615 
6WP51 irxWTNXHl 1X4HI M C H 1 1 )T4flT!9CH7BFl57T57T?X 3HT1. PT?X JUTTO T2V 3WT3011XT Trr* 
74HOTCT10X5HOFTOTinx5HOTTOTllX4HFEF11 lX4WFFF?/3( 10X5HDEG R),3(11X 1617 

8 4HB/HR V/BF15 . 5 ) " “ 1618 

FORMAT ( 11X4HFEF312X3HMUF1 3X2HMT13X2MMF1 5619 

i ?x3hM IE17V3HMHb T ? Y3HMCR12 x 3HAC P / 2? XftMMO O F GS12X3NLBS1 ?V3H1.0S 1 ? v3Ni6? n 


1 707 


1 7 Oft 


?L.BS1 2X3HLBS12X3HLPS10X5HSO FT/8F15.5// ) 
l?nn WJN'A s V? I N A + WIOFL 


1 621 
1627 


FIGURE D-2 "( cont’d) 


TRW EQUIPMENT LABORATORIES 


JF< W I NA - WlMAX) 6,6, 1201 

T2TT1 PTs EN * ENDEL 

IE(FN - ENMAX) 1202,1202 ,1203 

1203 ~OTIN = 01117 * TMJEL ~ ' 

I F( D I IN - DNMAX)1204, 1204,1205 
1205 CONTINUE 
83? CO T O 831 
END - 



subroutine table 

1830 

c 

_ TTrPFK5Tm TCCr973T ,7Z7r97~Ti ~ ,Tm , 7(9 1 
COMMON C.Z.V1,Y?,V3, Y4 .ITP1.1TP2 
~ CREATE RADIATOR INPUT T ABLE 
PROGRAM CONSTANTS - SElFCTION 

1 831 
1 8 i? 

' ' 1833 

1 834 


DATA CCC7 777/3*1 ,0 75*070,1. , 2*0 70 * i . 125 » .75 ,TT. 

1 ,75,1. , 1 .5,0, ,2* , 2*0 , , 1 , , ,5,5*1. , 0 , ,1. , 0 , , 1 , ,1 , , « 

• 2*1 . . . 8 ? , 1 , , . ?5 , 1 835 
5,0. .2*1. , 0 , ,4. ,?1838 
TT 7, 4 . ,T . . ;-5 , n - 7 1 7 IT37 
1838 


?•!•»!• 5 # 3 * « ft 66 1 1 * * D • • 1 • .0. »5i a 2 • 1 3* • 7H7 $ I • » fi • a 1 • » 


C CCT 4.1) * 7)75 

READ ( I TP1 ,1002 > 1,J.K.L 

T'63'V 

164^ 

inn? 

FORMAT* 4 11 > 

1 Mi 


WRITE ( ITP2, 1005)1 ,J,K,L 

164? 

TW5" 

FOWt^Al ( /ftH PUNT T5 2X41 T7T 

T6"*T3 


no l n * 1.9 

1644 


C< 11 ) = CCC( 11 . 1 ) 

T8T5 

1 

7(11) = 77Z ( I 1 , J ) 

1 646 



nn TQ f 16 : 15 ;i 6 ; 1 ** 15) ; J 

4 * a7’ 

15 

7(3>~= C ( 4 ) 

1 64* 

1* 


1 849 


!E(K-1> 2,2 ,3 

1 *5n 

7 

VI = 1 . 

1831- 


Y? S 0, 

1859 


~ WTlf-JT ' 

T 633 

3 

o 

It 

r-4 

> 

1 6 b 4 


v? = i. 


4 

IF(L - 1 ) 5 , 5 . 6 

1 6b* 

5 

“VTi'T, 

3 657 


V4 s 0, 

16b* 

. — 

" 5FTUfi K r'’ 

165^5 

6 

Y3 = n, 

166P 

■ 

V4 = 1 , 

1661 


RETURN 

166? 


F WD 



1.823 

r*?r 

1825 

1827 

1T2F 

1829 


FIGURE D-2 (cont'd) 
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SUBROUTINE CROUT(K') 

1*63 

in 

11 
17 

12 
TT 

21 

H IMF NS I ffS T 33) , i 1 3* ,331 V SFTCFT 7.AT 

COMMON! SPACE, A ,H, J55, I JS 

KTsNi+1 ' • 

00 ?0n Ksl.M 

K1 *sr+l - 

J*K 

oo ion t s k , v 
SIJMsO.O 

TR T J-T'TTTV 13,10 - - - - 

!R< 1-1)13.13,11 
IFfT- J) 17, 17, 71 

ISMXs 1-1 

no i? is=r,T5N'X ' ' 

SUMrSMM + A( IS, I >*A< I , IS) 

“STJ, I ) t ATJ“. n-stiM — 

r.n to inn 

JSMVbJ-1 

on ?2 js=i,jsmx 

TW4 

1665 

■ rsofi - 

1667 

1.660 
1 660 
i irm 

1671 

1672 

16 73 

167* 

1,675 

1676 ' 

1677 

- Torn 

1670 

16UTT 

1 6«1 

22 

23 

A ( J « I ) * A ( J , l ) -SUM 

1*87 

1683 

1 no 

I =K 

T 654 

16 8 5 

231 

no 200 JsKl.Ml — 

suvan.o 

TFT I -11733 , 233,231 

ISMVsI-1 

j 68 7 
1**8 
1*89 


•<<> / i/ Ife»l ■ ISMx ■ 

t*9n 

232 

SUM*SUM*4 ( IS, I)*A( J. IS) 

1691 

233 

I FT A TT , T) T35 0,351, 33*0 

1 *VT~- 

351 

a ( j , I ) * n , o 

j 69 3 

c.n in ?nn 

rm 

350 

A ( J » I ) ■ ( A ( J , l ) -SUM ) * C 1 , / A ( I , I ) ) 

1695 

2nn 

eOMTIMUE 

1696 

c 

WAVF COMPLETED FINDING the derived matrix 

1697 


00 300 ISxi.M 

1*9* 


suMsn.o 

1699 


jssM-rs+i 

I7tjn 


-J51 e JS + 1 

1.701 


On 2 SO Kgs jSi , Si 

170? 


TF(KS-N)?ft0«2«0,3n0 

17 03 

2fln 

SI!M = SUK + A(KS, JS)*M(KS ) 

1704 

300 

w( JS) = A(S1 , JS)-SIJM 

1705 


J35sj55 + 1 

170 6 


TFIPO-jSg) 302,302,303 

1707 

302 

I JS = 2 

1706 

303 

PETIJRM 

1709 


FsiO 

1 71 A 


FIGURE D-2 (cont'd) 
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SOURCE DECK PRINTOUT 
ISOTHERMAL DESIGN PROGRAM 


i 

o77b 

1000 


lOul 


DIMENSION T(14) ,OERIV< 15, 14) ,T3(l4) ,£RR0R(14) , DELTA C 14) ,CNST(14) , 2000 
1 aTS(2U) »XGIS(2o) ,XGIT(20) ,CON(9) , TITLE (16) 2001 

COMMON i), J55 , InALT , ItibXS, ITP1 , TTP2 ,DFR'TV , DELTA , Cl , C2 , C3', dT,'C5 , C6 , 2TJ02 
1 C7, CR,C9»Z1,Z2»Z3,Z4,Z5,Z6,Z7»Z<3»Z9,Y1»Y2»Y3»Y4 2003 

ITP1 =5 2004 

I TP* = b 2005 

READ (ITPl,677fa) TITLE 2006 

ink I TL ( ITP2,b776) TITLE 2007 

FORMAT (16A5) 2008 

READ ( ITP1,1000 ) INT5, (XTS( I ) ,XQIS( I ) , XQIT ( I ) , 1=1 , INTS) 2009 

FORMAT (12/, (3F10.4) ) 2010 

READ ( ITP1»1001)PC»TC»Eiv;DT»XIN»DPTOT» TOUT, R, GAMMA, VISV, 2011 

1 V ISL,HFCj,CL,RHOL,SUFT , EKC , RHOT , RHOF , EKTH , EKF , RFtOH, TH ,FSV »ET » EF , 2012 

2CV»Ti:,,TAU,ELNP0,EMEF,EMETH,TT6,ALPHS» ALPHT,DCMIN,DCMAJ»ELTMN_, 2013 

3ELTMX , T IF , RHOIF t Wtf I N , WMA X , TFM IN » TFMAX ' " 2014 

4 , jK If. I , OMAX , DUEL , tMPIN , EIJMAX , ENDEL , WNMIN , WNMAX , WNDEL 2015 

format (»F io. 4) 2016 

CALL TATLt 2017 
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1002 


8873 


bbl 

552 

555 

554 

5bu 

65u 


9962 


64 

55 

7867 


WRITE ( ITP2 1 1002 ) PC » TC t EMDT » XIN » DPTOT » TOUT# R » GAMMA • VISV2018 

1 » V ISL t HFG » CL • RHOL t SUFT t EKC » RHOT »RHOF » EKTH » EKF » RHOH » TH » FSV » ET » EF » 2019 

2C V » T I N » T AU » ELNPO t EMEF » EMETH ' ' " 2020 

WRITE ( ITP2»6873) TTG* ALPHS > ALPHT # DCMIN# DCMA J t ELTMN r 2021 

ltLTMX » TIF #RHOIF » WMIN# WMAX t TFMIN»TFMAX 2022 

2» jHIK#DMAX»PDEL#ENMIN«ENMAX#EN OEL#W NMI N#WNMAX#WNDEL _ 2023 

FORMAT (31H DESIGN PROGRAM I SO R/C W/SC/»12H FIXED INPUT/ »8X2HPC2024 
l8X2HTC7X3HMDT7X3HXIN5X5HDPTOT6X4HroUT9XlHR5X5HGAMMA6X4HVISV6X4HVIS2025 
2L/ »6X4HPSIA5X5HDEG R3X7HLDS/Mirri7x3HPSI5X5HDEG R6X4HFT7R1IX9HLB/FT2”026 

3 SEC1X9HLB/FT SEC/»8F10.4# 2F10.8/ 2027 

4 7X3HHFG8X2HCL6X4HRHOL6X4HSUFT8X2HKC6X42028 

5HRH0Tt.X4HRH0F7X3HKTHaX2HKF6X4HRH0h/»6X4HB/LB4X6HB/LB F1X9HLBS/CU F2029 
6T4X6HLBS/FT1X9HB/HR FT FTX9HLB5 /Cu F T 1 X^HLBS7CI] “FTl X gHB/HR'TT T179203 0 ' 

7H6/HH FT F1X9HLBS/CU FT/10F10 .4/r8X2HTH7X3HFSVBX2HET8X2HEF8X2HCV7X2031 
03HTIN7X3HTAU6X8H-LNPO7X3HMEF6X4HMETH/»6X4HINCH34X6HB/LB F5X5HDEG R2032 


9oX4HCAYS17X3HPSl7X3HPSI/#8F10.4»2F10.0) 2033 

FORMAT ' ( 7X3HTTG5X5HALPHS5X5HALPHT52034 

2^CH28X2 fJ FT8X2HFT6 5 ^^ H ^8^5”FT^X4~r^^I^^~~/C^FTB~?^^”"^^^ , ^^^^^^“ 


3bX4HftHAX5X5HTFMlN5X5HTFMAX6X4HDMlN6X4HDMAX6J(4HDDEL6X4HNMIN6X4HNMAX2037 
4bX4nNL)EL3X7HWlN MIN3x7HfcIN MAX3X7HWIN DEL/ » 8X2HFT6X4HI NCH6X4HINCH62038 


5X4HlNCH6X4HlNCH6X4HlrjCH36X4HINCH6X4HlNCH6X4HlNCH»/»12F10.4//) 2039 

rtHMAX^wNMAX- • 00001 2040 

E:4MAX=ENMAX-. 00001 _ _ 2041 

i>lAX=LMAX-. 00001 2042 

ISL1 =0 2043 

IF(ELTMN) 5bl*55lr 554 2044 

IF(WFIN) 552 f 552 t 554 2045 

IF ( TF iv AX ) 550 f 553 r 554 ~ * 2046 

FEFF - i) • 4 2047 

60 TO 560 ~ ** ”2048 


Ft_FF - J • 0 2049 
I5L1 - 1 2050 
C0N<ti)=1.272 * C2 2051 
PPWR - EMDT +DPTOT / (236. * PHOj.) 2052 
kvi<ITt_ (ITP2#9962) PPwR 2053 
FoRMaT </SH PPWR IS F15.0*3H HP/) - 2054 
ST1 = R * TC 2055 
ST59 = CL / EKC 2056 
ST8C' = Z6 / 2.0 2057 
ST81 = 60.0 * EMDT 2058 
RHOV = 144.0 * PC / ST1 2059 
SOW = 5.67 * SORT (ST1 * GAMMA) 2060 
ST10 = TOUT * TOUT * TOUT 2061 
RAT = 3.0 * ST10 * HF& / (TC*CL*( TC*TC*TC - ST10)) 2062 
ST30 = 16.0 * VISL * RHOV / (XIN * VISV * RHOL) 2063 
DO 95 LOOP1 = 1» INTS 2064 
TS = aTS(LOOPI) 2065 
GlS - XQlS(LOOPl) 2066 
OlT = x)IT(LOOPl) 2067 
uIIN = DM IN - 2068 
IF(TS) 55» 54# 54 2069 
TS4 = TS * TS * TS * TS 2070 
GO TO 7667 2071 
TS4 - 5.83E+08 * (QlS * ALPHS / ALPHT + QlT) " 2072 
TS = TS4 ** .25 2073 
WRITE (ITP2»996l) TS 2074 
FJRMAT(/7H TS IS F10 • 1 »6H DEG R///) 2075 
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STH = D.5 * DIIN "ZU7F 

ST58 = EKC / DIIN 2077 

EM = E'InIMIN 2078 

wINA = WNMIN 2079 

CON (9) =20.0 * EMDT * CL / EN 2080 

ST56 = EN * DIIN _ 2081 

VIN = 3.06 * EMDT * XIN / (RHOV * DllN * ST56)" "" "2082 

IFtVlN - FSV * SOW) 4* 4. 5 _ 2083 

WRITE ( ITP2.2005) DIIN.EN.VIN " ' 2084 

FORMAT ( 5H DI INF10 . 5 . 5X 1HNF14 . 5 . 5XoHVlNF12 . 5 » 5X 24HGREATER THAN 

1 FSV * SOW ) 2086 

60 TO 91 

DIHA = 0.5 * DllN * SORT (EN /ZI) * 2088 

ST6 = RHOV * VIN / (12.0 * VISV) 2089 

KEVIN = ST6 * DIIN 2090 

IF ( VISV*REVIii/V ISL-2300 • 0 ) 571.571.572 2091 

hSC = 115.0 * Y3 * ST58 * (EMDT*ST59/( ST56 ))**0.4 + 2092 

1 60.0 * Y4 * STSB 2093 

60 TO 573 " 2094 

HSC = 115.0 * Y3 * ST58 * ( EM0T*ST59/ ( ST56 ))**0.4 + 2095 

1 1.07 *Y4*ST5H*(ElviDT/(ST56 * VISL ))**0.8 * ( VISL*ST59) **0 . 3 2096 

CONTINUE 2097 

KEIHA = ST6 * OlHA 2098 

ST7 = RHOV * VIN * VIN 2099 

wIN -lo * (18.85 * UCMIN / EN - ST11) 2100 

WOUT = Zfa * (18.85 * DCMAJ / EN - ST11) 2101 

ST13 = (WIN - RAT * a'OUT) / (WIN + WOUT) 2102 

CSC = Z5 * RAT + Z6 *(SQRT (ST13 * ST13 + RAT) - ST13) 2103 

wIF = (WIN + WOUT * CSC) / (1.0 + CSC) 2104 

ST 16 = (WIN - WIF) / (WIN + WIF) 2105 

ST15 = *IN / (WIN + w IF ) 2106 

EKK1 - lb * 0.633 + Z6 * (1.0 - 1.666 * ST15 + 0.695 * ST16) 2107 

EkK 2 = Z5 * 0.5 + Z6 * (1.0 - STls + 0.25 * ST16) 2108 

EKK3 = Z5 * 0.167 + Z6 * (1.0 - 0,333 * ST15 + 0.0279 * ST16) 2109 

REV 1 = EKK 1 * REVIN 2110 

KtV2 = EKK2 * REVIN 2111 

Kt_V3 = EKK3 * REVIN 2112 

IF(REV1-2U00.0) 210. 210. 211 2113 

FR 1 = 64.U/REV1 2114 

60 TU 22 2115 

I F ( hE V 1 -40 0 0 • 0 ) 212. 213. 213 2116 

ERl = 0.00277 * RLV1 ** 0.322 2117 

60 TO 22 2118 

FRl = 0.316 / REV1 ** 0.25 2119 

IF ( RE V2-2U00 • 0 ) 220. 220. 221 2120 

Fk2 = 64.0/REV2 2121 

60 To 23 2122 

IF ( REV2-4U00 . 0 ) 222. 223. 223 2123 

Fu2 = 0.00277 ♦ REV2 ** 0.322 2124 

6 j TO 23 2125 

Fkc - 0.316 / REV2 *♦ 0.25 2126 

IF (RLV3-2000.0) 230. 230. 231 2127 

FR3 = H4.0/REV3 2128 

60 TO 24 2129 

IE" (Kt V 3-4 00 0.0 ) 232. 233. 233 2130 

F <3 = 0.00277 * REV3 ** 0.322 2131 

o <i To 24 2132 

Fi«3 = u .316 / REV3 *♦ 0.25 2133 
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24~ ST23 = 0.00395 * SQRT (RHOV / RHOL) * EMDT * VIN / (SUFT*Sf56) 

ST24 = 1.0 - EKK1 * XI_N _ 

WEF1 = EKK1 * 5T23 * ST24 

ST25 = 1.0 - EKK2 * XIN _ 

WEF2 = EKK2 * ST23 * ST25 
ST 26 = 1.0 - EKK3 * XIN 

WEF3 = EKK3 ST23 * ST26~ ' 

ST27 = 0.1275 * EMDT / (ST56 * VISL) 

KF1 = ST27 * ST24 
RF2 = ST27 * ST25 
RF3 = ST27 * ST26 

HCOND=2.7b*SQRT <CL*RHOL*RHOV*EKC*FR2/VISL) *VIN*Y1*Y4*.5 + 

1 (5000. *Y2 + 2000.' *Y1*Y3) V EKK2 

IFtwEH - 3.0) 30* 30. 302 

30 IF ( KF1 - 200.0) 301. 301. 302 

301 DrU = SORT (ST24 * ST30 / (FR1 * KEV1 * EKK1)) 

IF (KLV1-2U00. ) 301 1.3011. 3012 

3011 prill = (1.0 + DR1 ) ** 4.0 
GO TO 303 

3012 PHI 1 = (0.5 + SORT (0.25 + DR1 )) ** 4.75 
GO TO 303 

302 PHll = (EKK1 * XIN) **(-.75) 

303 IF ( WCF2 ~ 3.0) 31, 31, 312 

31 IF (RF2 - 200.0) 311, 311, 312 

311 UR2 = SORT (ST25 * ST30 / (FR2 * KEV2 * EKK2 ) ) 

IF (REV2-2000. ) 3111, 3111. 3112 

3111 PH12 = (1.0 + [)R2 ) **4.0 
GO TO 313 

3112 PH12 = (0.5 + SORT (0.25 + DR 2 ) ) ** 4.75 
GO TO 313 

312 PH12 = (EKK2 * XIN) **(-.75) 

313 IF(ft'EF3 — 5.U ) 02, 32, 322 

32 IF (RF3 - 200.0) 321, 321, 322 

321 JR3 = SORT (ST26 * ST30 / (FR3 * REV3 * EKK3) ) 

IF (REV3-2000. ) 321 1,321 1.3212 

3211 Ph13 = (1.0 + DR3 ) ** 4.0 
GO TO 323 

3212 PH 13 = (0.5 + SORT (0.25 + DR3 )> ** 4.75 
GO TO 323 

322 Ph13 = (EKK3 * XIN) **(-.75) 

323 CONTINUE 

38 WtlARi = 0.0833 * Z5 * EN * (2.0 * wINA + DIIN) + 3.14 * DCMIN * 
uf>IH = 0.500103 * ST7 * WBAR1 / (kEIHA ** 0.25 * DTHA * Zl) 

UPLC = DPTOT - DPIH + ST7 / 9260.0 
IF(DPLC) 7,7,8 

7 WRITE ( ITP2.2004) DIIIJ, EN, WINA, PPLC 

2004 FORMAT (5H "DriNFl0.5,5XlHNF14.5,5XHHWlNAFU.5,5X 
14HDPLC , FI 1 . 5 , 5X , 8HNEGAT I VE ) 

GO TO 89 ‘ ’ ' "" ' 

6 ELC = OPLC * DIIN * 2320.0 / (ST7 * (PHll * FR1 * EKK1 * EKK1 + 

1PH12 * FR2 * EKK2 * EKK2 + Ph13 * FR3 * EKK3 * EKK3J ) 

ELSC = ELC / CSC 
ELT=ELC+ELSC 

AP= 0.261 * Z2 *ST56 *ELT 

IF(TTG) 3T, 37, 361 

361 If = TTS 
TTX = TTG 
GO TO 371 
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37 TT = 3:31 * TAP " W'X'EUfiPeTr' *•*' T.gsr / (RHP T *EH ET H*gME T HI» * .T6562?ff® 

371 DOIN = DIIN + 2.0 * TT 2201 

QTUB=0 . 2857e-'09*Z2*EF*DOIN*EN*ELC* ( TC*TC*TC*TC-TS4 ) 2202 

bT40 = DOIN / 2.0 2203 

FACT1 = DIIN * ELC ~~ 2204 

FACT2 = 1.0 / (24.0 / (HCOND * EKK2) + (DO IN - DII N) / EKTH ) 2205 

FACT3 = (DOIN - DIIN) / (DOIN + DUN) ' 2206 

FACT4 = EKTH * ELC _ 2207 

FACTS = DOIN * ELC 2208 

FACTS = FACT1 * FACT2 2209 

FACT9 = FACT3 * FACT4 2210 

CilSTU) = 1.394 * Cl * FACTS * T(. + 1.495E-10 * Z3 * C7 * FACTS 2211 

1 ♦ El * TS4 2212 

CNST (2 ) = 0.348 * C3 * FACT8 * TC + 0.238E-10 * Z4 * C5 * FACT5 2213 

1 * EF * TS4 2214 

C. JST ( 7 ) = 20.0 * EMDT / EN * (XlN * HFG + CV * (TIN - TC ) ) 2215 

1 - 0.697 * FACTS * TC * (2.0 * Cl + C3) 2216 

TRM1 = + 1.394 * Cl * FACT8 + 1.7 * C2 * FACT9 2217 

TRM2 = 1.7 * C2 * FAC T9 2218 

Ti<M4 = + 0.348 * C3 * FACT8 + 0.8b * FACT9 * C2 2220 * 

TRM6 = +0.236E-10 * Z4 * C5 * EF * FACT5 2221 

TKM12 = 0.697 * FACTS 2222 

CON ( 1 ) =01 IN / (24.0 / HSC + (OOIN - DIIN) / EKTH ) 2223 

CON(2)=C2 * EKTH * (DOIN - DIIN) / (DOIN + D|IM) 2224 

LiAJE = 432.0 * (1.435E-04 * ST7 - DPLC ) / (RHOL * ELC) 2225 

ST 39 = Z5 * WlhA 2226 

WINX = ST39 + Z6 * (18.85 * DCMIN / EN - ST40) 2227 

WOUX = ST39 + Z6 * (18.85 * DCMAJ / EN - ST40) 2228 

IF ( toNAX ) 41# 41 r 40 2229 

AO STORE = 0^0833 * EM * ( 2.0 * WINx + DOIN) 2230 

IF (STORE-WMIN) 402. 401# 401 ' 2231 

401 IF ( WMAX - STORE) 402. 41. 41 2232 

402 «i <ITt ( ITP2 #2002) Dl IN. EN. «IMA . STORE 2233 

2002 FORMAT (SH DI INFlO . 5 . 5X1HNF14 • 5 . 5X4HW INAF1 1 . 5 # 5X 

llnih »r 14.5.5X.12H0UT OF RANGE ) 2235 

GO TO 89 2236 

4 1 *IFX = (WINX + WOUX * CSC) / (1.0 + CSC) " 2237 

IF(Cb) 46. 42. 46 2238 

42 ST42 = DOIN / (WINX + WlFX) 2239 

S TORE= ( WINX+WOUX ) /DOIN * 

F1SP = 1.0 + 2.0 * STORE 2241 * 

FiSP = ATAN (SORT ( F1SP*F LSP-1 . 0 ) ) / 2.0 2242 

F iSP= 0 .o366* ( 1 ,+STORE* ( 1 • -SORT (1 ./SToRE+1 . IT + FlSP ) * 

F3SP = SORT (0.1 * ST42 + 0.0025) / (2.0 * ST42 +0.1) + SORT 2244 * 

1 ( 3 . o 0 3 + 3.9 * ST42) / (2.0 * ST42 + 3.9) 2245 

F4SP = SORT (0.4 * ST42 + 0.04) / (2.0 * ST42 + 0.4) + SORT 2246 

1 (3.2a + 3.6 * ST42 ) / (2.0 * ST4*; + 3.6) 2247 

FbSP = SORT (0.9 * ST42 + 0.2025) / (2.0 * ST42 + 0.9) + SORT 2248 

1 (2.463 + 3.1 * ST42 ) / (2.0 * ST*2 +3.1) ‘2249 

FoSP = SORT (1.6 * ST42 + 0.64) / (2.0 * ST42 + 1.6) + SORT 2250 

1 (1.44 + 2.4 * ST42 ) / (2.0 * ST42 + 2.4) 2251 

4b IF (Cb - 1.0) 50# 461# 50 2252 

4bi IF ( Z3 ) 47# 50# 47 2253 

47 ST46 = DOIN / WlNX _ 2254 

FlSP=0.3183*(0.2148+ATAM (4.*WiNX/D0lN +1.)) * 

ST 47 = ST46 * ST4b 2256 * 

E3SP =(0.05 * ST46 + 0.0025) / (0.1 * ST46 + 0.005 + ST47) + 2257 

1 (3.003 + 1.95 * ST46) / (7.606 + 3.9 * ST46 + ST47) 2258 
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F4SP= ( . 2*ST46+ . 04 ) / ( . 4*ST'46+ . 08+ST47 ) + ' ' , 

1 (3.24 + 1.8 * ST46) / (6.48 + 3.6 * ST46 + ST47) _ 2260 < 

F5SP = (0.45 * ST46 + 0.2025) / (u.9 * ST46 ♦ 0.405 + ST47) + 2261 

1 (2*403 + 1.55 * ST46) / (4.806 + 3.1 * ST46 + ST47) 2262 

F6SP = (0.8 * ST46 + 0.64) / (1.6 * ST46 + 1.28 + ST47) + 2263 

1 1.1 •44 + 1.2 * ST46) / (2.88 + 2.4 * ST4 6 + ST 47) 2264 

50 IF (C5 - 2.0) 51 » 512 » 51 " 2265 

51 IF ( C5 - 1.0) 52# 511# 52 2266 

511 IF (23) 52# 512# 52 “ " 2267 

512 F3SP = 1.0 2268 

F1SP = 1.0 2269 

F4SP = 1.0 2270 

F55P = 1.0 ' ~ - - 2271 

F6SP = 1.0 2272 

52 *2 = ( WIiMX + WIFX)’/ 2.0 2273 

IF ( ISL1 ) 56#5b#555 * 2274 

555 ST55 = (2.1E+11 * EMDT * (XIN * HFG + CV * (TIN - TC)) - QTUB) / 2275 

1(( WINX+WOUX ) *ELC*EF*22*EN* (TC*TC*TC*TC-TS4) ) 2276 

IF(ST55 — l.U) 556. 557# 557 ~ ’ ~ 2277 

55b IF (FtFF - ST55) 56# 56# 557 2278 

557 aRITL ( I TP2#2001 ) DI IN»EN# WINA » ST55 2279 

20ol FORMAT (5H DIINF10.5#5X1HNF14.5»5X4HWINAF11.5»5X 

14r tFEF F # FI 1 . 5 # 5X » 12H0UT OF RANGE ) 2281 

GO TO 89 2282 

56 FACTb = ELC * EKF / w2 ' 2283 

FACT7 = Z2 * C2 * EF * ELC * W2 2284 

TRM3= 1.495E-10 *Z3 *C7 +FACT5 *ET *FlSP * 

STORE = FACT7 * TS4 2285 

C.>iST (3) = 0.95E-11 * STORE * (C6 + F3SP) 2286 

Ci.ST (4 ) = 1.9E-11 * STORE * (C6 + F4SP) 2287 

CnST(5) - 2.85E-11 * STORE * (~C6 + F5SP) ?28fi 

C JST(o) = 3.3E-11 * STORE * (C6 + F6SP) 2289 

TRM5 = 6.67 * FACT6 2290 

TRN7 = +0.95E— 11 * FACT7 * (C6 + F3SP) 2291 

TRM8 = +1.9E-11 * FACT7 * (C6 + F4SP) 2292 

TRM9 = +2.85E-11 * FACT7 * (C6 + F5SP) 2293 

T'iHl 0 = 0.952 * FACTb 2294 

TRM11 = +3.3E-11 * FACT7 * (C6 + F6SP) 2295 

N = 7 2296 

T ( 7 ) r. o 1 2297 

I*-jSR=2 2298 

GO TO 96 2299 

6741 T(7)=.l 2300 

INSR=3 2301 

GO TO 93 2302 

6743 T(7)=.001 2303 

I jSR=4 2304 

98 T ( 1 ) =T C-10 . 2305 

T 1 2) =T ( 1 ) -5, 2306 

GO 99 I-3»o 2307 

99 T(I)=T (I-D-30. 2308 

J55=0 2309 

DO 100 1 = 1 » 7 * 

T 3 ( I ) = T ( I ) * T ( I ) * T ( I ) 2311 * 

DO lOO J =1#7 2312 

10U DERIV ( J# I ) = 0.0 2313 

Hill IhDXS = 1 2314 

DERIV ( 1 » 1 ) = -TRM1 - 4.0 * TRM3 * T3(l) 2315 
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DERIV (2, D = TRH2 

DERIV (1*2) = DERIV (2»1 ) / 2.0 

DERI V (2,2) = -TRM4 - TRM5 * T(7) - 4.0 * TRM6 * T3(2) 
DERIV (3.2) = TRM5 * T(7) 

DERIV (7,2) = TRM5 * ( T ( 3 ) - T(2) ) 

STORE = FACTS * T(7) _ 

UERIV (2,3) = 6.67 * STORE 

DERIV (3,3) = -8.89* STORE - 

DERIV (4.3) = 2.22 * STORE 

UERIV (7.3) = (6.67 * T(2) - 

U£R I V ( 3 , 4) = DERIV (4,3) 

UERIV (4,4) = -3. 554 * STORE 
UERIV (5,4) = 1.334 * STORE 


4.0 * TRM 7 * 
8.89* T(3) + 
- 4.0 * TRM8 


T3 (3 ) 

2.22 * T (4) ) * FACT6 
* T3 (4 ) 


23T5" 

2317 

2318 

2319 

2320 

232 1 

2322 

2323 

2324 

2325 
'2326 

2327 

2328 


Ut.R I V ( 7 , 4) = (2.22 * T (3) - 3.554 * T(4) + 1.334 * T(5> ) * FACT6 2329 
DLR I V (4,5) = DERIV (5,4) 2330 

UERIV (5,5) = -2.286 * STORE - 4.0 * TRM9 * T3(5) 2331 

UERIV (6,5) = 0.952 * STORE 2332 

DERIV (7,5) = (1.334 * T(4) - 2.2fio * T(5) + 0.952 * T(6)_ ) * FACT62333 
UERIV (5,6) = TRM10 * T (7) * 2334 

DERIV (6,6) = -TRM10 * T ( 7 ) - 4.0 * TRMll * T3(6) 2335 

UERIV (7,6) = TRM10 * (T(5) - T ( 6 ) > 2336 

UERIV (1,7) = 2.0 * Cl * TKM12 2337 

UERIV (2,7) = C3 * TRM12 2338 

ERROR (1) = CNST(l) - TRM1 * T ( 1 ) + TRM? * T(2) - TRM3 * T3 ( 1 ) *T ( 1 ) 2339 

ERROR (2) = CNST (2) - TRM4 * T(2) + TRM5 * T(7) * (T(3) - T ( 2 ) ) 2340 

1 - TRM 6 * T3 (2 ) * T (2) + TRM2 * T ( 1 ) / 2.0 2341 

ERROR ( 3 ) = CNST ( 3 ) + T(7) * FACT6 * (6.67 * T(?> - 8.89* T ( 3 ) + 2342 

1 2.22 * T ( 4 ) ) - TRM7 * T3(3) * T(3) 2343 

ERROR (4) = CNST (4) + T(7) * FACT6 * (2.22 * T(3) - 3.554 * T(4)+ 2344 

1 1.334 * T (5) ) - TRMO * T3(4) * T(4) 2345 

ERROR (5) = CNST (5) + T (7) * FACT6 * (1.334 * T( 4) -2.286 * T(5)+ 2346 

1 0.952 * T(6)) - TRM9 * T3(5) * T(5) 2347 

Et\ROR ( 6 ) = CllST ( 6 ) + TRM10 * T(7) * (T(5) - T(6)) - TRMll * T3<6) 2348 
1 * T(b) 2349 

ERROR (7) = CNST (7) + TRM12 * (2.0 * Cl * T(l) + C3 * T ( 2 ) ) 2350 

WRITE (ITP2,87b5) ERROR ( 7 ) , CNST ( 7 ) , TRM 12 

Do 70 1 1=1, N 2351 

DERIV (N+ 1,1) =-ERROR ( I ) 2352 

CALL CROUT 2353 

GO TO (14,6742) ,INDXS 2354 

GO TO (6741,6741,6743,10) ,IMSR 2355 

V.rITl ( ITP2,2U0C) DI Ii i » EN , wINA 2356 

FORMAT (5H‘ D I IN » F 1 0 • 5 * 5 X 1 HNF 1 4 • 5 , 5 a 4HW If ' AF 1 1 . 5 » 5 h 2357 

1 SUHCoNUENSER EQUATIONS NONCONVERgENT AFTER 20 tries ) 2358 

60 To 89 2359 

GO TO 11111 2360 

uo 1 6 1 I = 1,7 2361 

T ( I ) = T ( I ) + CELT A(I) _ 2362 

T3(I) = T ( I ) * T ( 1 ) * T ( I ) 2353 


DO 1 0 1 J =1,7 2364 
UERIV (J, I) =0.0 2365 
IF ( AUS (DELTA(7) >-.0001)800, 6000,6000 2366 
Do 801 I = 1,6 2367 
IF<AtS(DELTA(I) ) -1 .) 801 ,6000 , 6000 2368 
CONTINUE 2369 
TF =1(7) 2370 
IF ( TFMAX + TFMJN) 110, 109, 110 2371 
IF(TFFAX-TF) 108, 107, 107 2372 
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107 IF ( T F-TFMIN) 108* 109# 109 " ' ' ~ “ 2373 

108 wRlTE(ITP2*2006>^ QIIN»EN»_WINA»TF 2374 

2006 FORMAT (5H 0 1 1 NF 1 0 . 5 » 5X 1 HNF 14 .5# 5X4HWI NAF11 . 5 » 5X 

12HTF»F13«5#5X» 12H0UT OF RANGE ) __ 2376 

GO TO 89" ' 2377 


109 QTOTC = STQ1 *(XIN * HFG + CV * (TIN - TC)) 

GTtC =(h.485E-10 * F1SP *23 * C7 * FACT5 *ET *773(1 )*T(1) 

1 - TS4) + 1.428E-10 * 24 * C5 * EF * FACT5 * (T3(2)*T(2) 

2 - TS4))*EN 

QFTC = QTOTC - QTTC 


FtFC = 17.5E+08 * QFTC / (EN * ELC * EF * 22 * W2 * 2379 

1 ( T(8)*T(2)*T(2)*T(2) - TS4 ) ) 2380 

W4 = <3.0 * #/IFX " + WOUX) 7 4.0 """ 2381 

W45 = (WIFX + WOUX) / 2.0 2382 

WRITE (ITP2*8765) T * DELTA * ERROR * HCOND* F1SP " "" *K 

876b FORMAT (/7E15.8) 

*5 = (3.0 * WOUX + WIFX) / 4.0 2383 

bl IF (2b - 1.0) 65* 611* 65 2384 

611 ST 61 = 00 1 N / W45 " 2385 

STORE = (WIN+WOUT)/OOIN 2386 

FS1SP = 1.0 + 2. 0*STORE 2387 

FS1SP = ATAN (SORT ( FS1SP*FS1SP-1 . 0 ) ) /2 . 0 2388 

FS1SP- . 6366* C 1 . +STORE * ( 1 .-SORT ( l./STORE+l. ) ) + FSISP) 

FS3SP = SORT (0.05 * ST61 + 0.002s) / (ST61 + 0.1) + SORT 2390 ** 

1 (3.803 + 1.95 * ST61 ) / (ST61 +3.9) 2391 

FS4SP = SORT (0.2 * ST61 + 0.04) / (ST61 + 0.4) + SORT 2392 

1 (3.24 + 1.8 * ST61 ) / ( ST61 + 3.6) 2393 

FS5SP - SORT (u.4b * bTbl + 0.202s) / (ST61 + n.g) + SORT 2394 

1 (2.403 + 1.55 * ST61 ) / (ST61 +3.1) 2395 

FS6SP = SORT (0.8 * STbl + 0.64) / (ST61 +1.6) + SORT 2396 

1 (1.44 + 1.2 * STbl) / (STbl + 2.4) 2397 

GO TO bb 2398 

ob FS3SP - F5SP 2399 

FSISP = F1SP 2400 

FS4SP - F4SP 2401 

FSbSP = F5SP 2402 

FS6SP = F6SP 2403 

bo T(14)=1.2*ELSC 2404 

2AP=.4*(TC-T0UT) 2405 

T(1)=TC-ZAP 2406 

00 7000 1=1*6 2407 

T(I+1)=T(I)-ZAP 2408 

7000 T ('1+7 ) =T( 1 + 1 ) -ZAP 2409 

1 >jSR=1 2410 

7003 Jb5=0 2411 

DO 201 I = 1*13 2412 

ZAP=1 2413 

1+ ( INSR-1 )7002*7001»7002 2414 

70u2 T ( I ) =TC-5. *ZAP ~ " 2415 

7001 T3(I)=T(I)*T(I)*T(I) 2416 

C)5T(I) = 0.0 2417 

DO 201 J = 1*15 2418 

UERI V ( J * 14 ) =0 . 0 ^ 

201 DERIV(J*I) = 0.0 2419 

C')ST(i) = CON (9) * (3.0 * TC - TOUT) 2420 

CnST ( 8 ) = -2.0 * CON ( 9 ) * TOUT 2421 

C0N(3)=TF * EKF / W4 2422 

CON ( 4 ) =Z2 * C2 * EF * W4 2423 


FIGURE D-4 (cont'd) 
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CQN(5)~=TF * EKF / W5 ~ " * ~ ~2424 

CON ( 6) =Z2 * C2 * t"F * W5 2425 

CON (7) = Z2 * C2 * EF * W5 2426 

TRM13 = COM ( 1 ) * (2.092 * Cl + 1.046 * C3) 2427 

T.W14 = 1 • 122E-10 * Z3 * C7 * ET * DOIM * FSiSP 2420 

TRM15 = 0 . 357E-10 * Z4 * C5 * EF * 00 _ _ 24 29 

TKM16 = 0.1428F-10 * COM4) * (C6 + FS3SP ) ’ " " ” 2430 

TRK17 = 0.285E-10 * CON(4) * (C6 + FS4SP) 2431 

Tf<Ml8 = 0.42dE-10 * C0N(4) * (C6 + FSbSP) 2432 

TRM19 = 0.57E-10 * C0N<4) * (C6 + FS6SP ) 2433 

TRM20 = TKM14 2434 

TKM21 = TRvilb 2435 

T ;\l*'22 = 0 . 1428F-10 * CON (71 * (C6 + F535P) 2436 

TRM23 = U.285E-10 * CON(7) * (C6 + FS4SP) 2437 

TRM24 = 0.426E-10 * CO(J ( 7 ) * (C6 + FS56P) 2438 

TRM25 = 0.57E-10 * CON (7) * (C6 + FS6SP ) 2439 

J5b =0 2440 

INDXS = 1 _ 2441 

N = 14 2442 

22222 OEHIV(l.l) = -2.0+COM9) - TRM13 * T(14) 2443 

ST2 = Cl * CON ( 1 ) * T<14) 2444 

DEF 1 V ( 2 . 1 ) = 2.092 * Cl * CON(l) * T(14) 2445 

OEF I V ( 3 * 1 ) = 1.046 * C3 * CON (1 ) * T(14) 2446 

UER I V (14.1) = -CON(l) * (2.092*C1*( T(1)-T(2)J + 1.046+C3 * 2447 

1 ( T ( 1 ) - T(3) ) ) 2448 

DEKIV ( 1 »2) = 1.046 * ST2 2449 

DERIW2.2) = -CERIVdr?) - T ( 14 ) * ( C0N(2) * 1.272 + 2450 

11KM14 * T3(2) * 4.0 ) 2451 

DLRXV (3.2) = 1.272 * CON ( 2 ) * T(l4) 2452 

OLR I V ( 14 »2 ) = 1.046*C1*C0M1 )*< T(l)-T(2) ) -1.272 * CON(2) * 2453 

1 ( T(2 ) - T(3) ) - TKM14 * ( T ( 2 ) * T3<2) - T54 ) * 2454 

OLR I V ( 1 * 3 ) = 0.523 * C3 * CON(l) * T(14) 2455 

UtR I V ( 2 » 3 ) = DERIV (3.2) 2456 

DERXV (3»3) =-T(l4) * (0.523 * C3 * CON(l) + 1.272*CON(2) + 2457 

1 i.0.0 * CON ( 3 ) + TRi-115 * T3 ( 3 ) * 4.0) 2458 

OERIV (4.3) = 10. 0 * CON ( 3 ) * T ( 1 4 ) 2459 

OoRIV ( 14.3) = CON(l) * 0.523 * Cj * ( T ( 1 ) - T(31) +1.272 * COM2)2460 

1 * ( T ( 2 ) - T ( 3 ) ) - 10.0 * CON ( 3 ) * (T(3) - T(4)) + TRM15 * (TS4 - 2461 

2 T3 ( 3 ) * T ( 3 ) ) 2462 

jEKIV (3.4) = 10. 0 * CON ( 3 ) * T(14) 2463 

OcRIV (4.4) =-(13.33 * CON ( 3 ) + TRulb * T3(4) * 4,0 ) * T(14) 2464 

PER I V ( 5 .4 ) = 3.33 * CON(3) * T ( 1 4 ) _ 2465 

UERIVU4.4) = CON ( 3 ) * (10.0 * T (V) - 13.33 * T<4) + 3.33 * f (5) ) 2466 

1 + TRK16 * (TS4 - T3 ( 4 ) * T(4)) 2467 

UilRlV (4.5) = DERI V (5.4) 2468 

DLRIV (5.5) = — T ( 14 ) * (5.33 * CON(3) + TRM17 * 4.0 * T3(5)) 2469 

UERIV(6.5) = 2.0 * COM3) * T(14) 2470 

UEKIV (14.5) = CON (3) * (3.33 * T(4) - 5.33 * T(5) + 2.0 * T(6) ) 2471 

1 *■ TRM7 * (TS4 - T(b) * T3(5>) 2472 

UthlV (5.6) = uERI\/(6.5) 2473 

M£RIV(6.6) = — T ( 14 ) * (3.428 * COM3) + TRM18 * 4.0 *T3(6))2474 

ut-RlV (7.6) = 1.428 * CON ( 3 ) * T(l«+) 2475 

Dr.R IV(14.6) = CON ( 3 ) * (2.0 *(T(5) - T(6)) + 1.423 *(T<7) - T(6)))2476 
1 + TRM18 * (TS4 - T 3 ( 6 ) * T(6)) 2477 

ucRIV (o.7) = DERI V (7.6) ~ 2478 

l,;:RIv( 7.7) = — T (14) * (1.428 * COM3) + TR Ml 9 * 4.0 * T3(7) ) 2479 

ofc.R IV ( 14.7) = 1.428 * CON ( 3 ) * (T(6) - T<7)) + TRM19 * 2480 

1 (TS4 - T3 ( 7) * T ( 7 ) ) 2481 


FIGURE D-4 (cont’d) 
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i 


i 


DERIV (1*8) = 2.0 * C0NC9) - C0N(1) * T(14) * 2482 

_ 1 _( 0 .6973 ♦ Cl + 0.3487 » C3) 2483 

DERIV ( 8*8) = 0.6973 * Cl * 3.0 * C0N(1) * T(14) 2484 

DERIV (9*8) = 0.3487 * C3 » 3.0 » CON(l) * T(14) 2485 

DERIV(14»8) = -C0N(1) * < 0.6973*C1 * (2.0*TOUT+T(1)-3.0*T<8) ) + 2486 

1 0.3487*C3* (2.0*TQUT+T(1)-3.0*T(9) ) ) 2487 

DERIV ( 1*9) = 0.3487 * Cl * T(14) * C0N(1) 2488 

- P ER I V ( 8 * 9 ) = - T(14) * (1.046 » Cl * CON(l) + C0N(2) * 1.272 2489 

1 + TRM20 ♦ 4.0 * T3(8) ) 2498 

OERIV (9*9) = DERIV (3*2) 2491 

DER I V ( 14*9) = CON(l) * (0.3487 * Cl * (2.0 * TOUT + T (1) - 3.0 * 2492 
1 T(8) ) ) +C0N(2)*1.272 *(T(9)-T(8) )-TRM20* (T3(8)*T(8)-TS4 ) 2493 

DERIV (1*10) = 0.1743 * C3 * CON(l) * T(14) 2494 

DERIV (8*10) = DERIV (3*2) 2495 

DERIV (9* 10) = -T( 14) * (0.5229 * C3 * CON(l) + 1.272 * CON ( 2 ) 2496 

_ 1 +_10.0 * CON ( 5) + 4 . 0 * TRM21 ♦ T3(10) ) 2497 

DERIV(10»ld) = 10.0 * CON (5) * T(14) 2498 

DERIV( 14*10) = CON ( 1 ) * 0.1743 * C3 * (2.0 * TOUT * 3.0 * T(9) 2499 

1 + T ( 1 ) ) + 1.272 * CON ( 2 ) * (T(8) - T(9)) + 10.0 * C0N(5J *(T(10)2500 

2 - T(9) ) + TRM21 * (TS4 - T3(9) * T(9) ) 2501 

DERIV (9* 11) = DERIV (10 » 10 ) ' 2502 

D£RlV(10*UL=“Itl4) * (13.33 * CQN(5) + 4.0 » T3(10) * TRM22) 2503 
DERIV (11*11) = 3.33 * CON (5) * T(14) 2504 

DERIV ( 14*11) = 10.0 * C0N(5) * (T (9) -T(10) ) + 3.33 * CON(5) 2505 

1 * (T(ll) - T ( 10 ) ) + TRM22 * (TS4 - T(10) * T3(10) ) 2506 

DERIV (10*12) = DERIV (11*11) 2507 

DERIV(11*12) = “ T (14) * (5.33 * C0N(5) + 4.0 * TRM23 * T3(ll) ) 2508 

DERIV ( 12*12) = 2.0 * C0N(5) * T(14) 2509 

DER IVTi4 ► 12T =' CON ( 5 ) * T3.33* T(10) - 5.33 * T(ll) ♦ 2.0 * 2510 

1 T ( 12) ) + TRM23 * (TS4 - T3(ll) * T(ll) ) 2511 

DERIV (11 *13) = DERIV (12* 12) 2512 

DERIV (12*13) = — T( 14) * (3.428 * C0N(5) + 4.0 * TRM24 * T3(13)) 2513 

DERIV (13*13) — 1.428 * C0N(5) * T(14? 2514 

DERIV (14*13) = 2.0 * CON (5 ) * (T(ll) - T(l2)) +1.428 * C0N(5) * 2515 

1 ( T 0.3) - T ( 12TT ♦ TRM24 * (TS4 - T3<12) * T(12) ) " 2516 

DERIV (12*14) = DERIV (13 *13) 2517 

TjER'IV (13*14) = -T(l4) * (1.428 * C0N(5) + 4.0 * TRM25 * T3113JJ 25TF 

DERIV (14*14) = 1.428 * C0N(5) * (T ( 12 ) - T(13)) + TRM25 * (TS4 - 2519 

I T3TI3T * T( 13) ) “ 2520 

ERROR ( 1 ) = CON ( 9 ) * (3. 0+TC-TOUT-2.0 * T( 1 ) ) - CON(l) * T(14) * 2521 

2 . 092*CT*T'TTTT-T(2) )^T 1.046 * C3 * <T(1) - T(3) ) ) 2522 


ERROR (2) = T( 14) * (1.046 * Cl * CON(l) * (T(D - T(2)) + 1.272 * 2523 

rXCNTST * ' TTT 3 ) - T12TT + TRM14 *TT54 - T(2J * T3(2)J ) 2520 

ERROR (3) = T ( 14) * (0.523 * C3 * CON(l) * (T ( 1 ) - T(3)) + 1.272 * 2525 

1 CON (2T“*“ fT( 2T-TT 3TT + 10.0 * C0N(3) * (T(4) - T(3)J + TRM15 * 2526 

2 (TS4 - T3(3) * T(3) ) ) 2527 

ERROR (4) = T ( 143 * (10.0 * CON (3! * (T(3) - TT4)) + 3.33 * C0N(3) 2528 

1 * (T (5) - T (4) ) + TRM16 * (TS4 - T3(4> * T(4)) ) 2529 

ERROR T5T~='TT14) * (3733“ f - C0NT3T * (T(4) -T(5Jr+'2.0 * C0N<3) *2530 
1 (T(6) - T (5) )+ TRM17 * (TS4 - T3(5) * T(5)) ) 2531 

ERROR (6) = T(14) * (2.0 * CON OJ * (T (5) - T(6T) + 1.428 * CON(3) 2532 

1 * (T(7) - T (6) ) + TRM18 * (TS4 - T3<6) * T(6)) ) 2533 

ERROR Vn = T(14) * (1.428 ♦ CON (3) * (T(6) - T<7)) ♦ TRM19 * (TS4 2534 

1 - T3(7) * T (7) > ) 2535 

"ERRWTiy) =■ 2.0 * Con ( 9) * (Til) - TOUT) — - T (14 )"* "Con (IT ♦ 253F 

1 (0.6973*C1*(2.0*TOUT+T(1)-3.0*T(8) ) + 0.3487*C3*(2.0*TOUT+T(1) 2537 

2 - 3.0*7(97) ) 2538 

ERROR (9) = T ( 14 ) * ( CON ( 1 ) » 0 .3487 ♦ Cl ♦ (2.0 « TOUT + T(l> - 2539 

FIGURE D-4 (eont'd) 
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C3 * (2.0 * TOUT - 3.0 * 
T(0) - T(9) ) + 10.0 *C0N(5) 


* (T (10 ) 

EKROFMUJ 
1 * (T (11) 

ERROR ( 12) 

1 * (T (12) 

_ E RRO R U3) 

1 * (T ( 13) 

ERR0R(14) 

TTT54 - "T3T1 5T ITflJTTl 
Al= TF * EKF * W45 / T(14) 
DO 7012 1 = 4.7 

A2 = I “ 3 
A2A1 = A2 * A1 
DERIV(I.l) = OERIV(I.I)- 


* (TS4 - T3< 
CON (5) * (T ( 

* (TS4- T3< 
CON (5) ♦ ( T < 

* 

* 


* T3(9T> ) 
(9) - T(10) ) 
T(10) ) 


2543 

2544 

+ 3.33 *C0N(5)2545 


T"3~. 0~ * TT8 ) J r miTZl T7Z72 * IT(y) - TTBTT + TRM20 * US4- 

2 T3(8) * T ( 8) ) ) 

ERROR (10) = T ( 14 ) * (CON(l) * 0.1743 * 

1 T (9) + T(1 ) ) + CON ( 2 ) * 1.272 * _( 

2 * (T(10) - T(9) ) + TRM21 * (TS4 - T"(9) 

T( 14) * (10. 0^* CON(5) * (T 
TClO) ) + TRM22 
T( 14) * (3.33* 

T ( 11) ) + TRM23 
T( 14) * (2.0 * 

T ( 12 ) ) + TRM24 
T(14) * (1.428 

-rnyrT 


2540" 

2541 


10) * T ( 10 ) ) ) 

10) - T(ll) )+ 2.0 


11 ) 

11 ) 


* T ( 1 1 ) ) 
- T ( 12 ) ) 


(TS4 - 
C0N(5) 


T3< 
* ( 


12) * T(12) ) 

T ( 12) - T( 13) ) 


) 

+1.428 
) 

+ TRM25 


2546 

* CON (5) 2547 
2548 
♦CON (J) 2549 
" 2550 
2551 
— 5352" 


7012 


* .001389 


2553 


a5aT 


A2A1 

DE7* IVTT+67TT = DER I V ( I +6 . 1 ) + 
DERIV(I+6.I+7) = DERIV ( 1+6. 1+7) - A2A1 
UERIV( I » 1+7) = DERIV ( I * 1+7) + A2A1 

A3 = A2A1 / T ( 14 ) * ( T ( I ) - T(I+fa)) 
DERIV (14. I) = DERIV (14.1) + A3 
UERIV(14.I+7)= OERIV ( 14. 1+7) - A3 
ERROR ( I) = ERROR(I) - A3 * Tfl4V 
ERR0R(I+7) = ERROR (1+7) + A3 * T(14) 

DOIN - DIIN * DIIN) * EKTH 

* Cl * A1 

* C3 * A1 
DERIV (2.2) 

DERIV (8.2) 


A1 = (DOIN * 
A2 = .00363 
A3 = .00182 
DERIV (2. 2) = 
DERIV (8.2) = 


/ T (14) 


A2 

A2 


A4 = ( T ( 2 ) — T(8) ) * A2 
DERIV( 14.2) = DERIV (14.2) + A4 / T(14) 
ERROR(2) = ERROR (2) - A4 
DERIV (2.9) = DERIV (2.9) + 


0ERIV(8.9) = 
DERIV (14.9)= 
ERROR (9) = 

DERIV(3.3) = 
DERIV (9.3) = 
A4 = ( T ( 3) 

UERIV(14.3) = 


A2 

DERIV (8.9) - A 2 
DERIV (14. 9) - A4 
ERROR (9) + A4 
DERIV (3.3) - A3 
DERIV (9.3) + A3 
- T(9) ) * A3 
DERIV (14.3) 


/ T ( 14 ) 


+ A4/T ( 14 ) 


702 


7005 

7006 


7007 


ERROR ( 3 ) = ERROR ( 3 ) - A4 

DERI V ( 3. 10 ) = DERIV (3.10) + A3 

DERIV(9. 10 ) = DERIV (9.10) - A3 

DERIV(14»10)= DERIV (14*10) - A4 / T(14) 

ERROR(IO) = ERROR (10) + A4 

DO 702 I = l.N 

UERlV(N+l.I) =-ERROR(I) 

CALL CROUT 

GO TO (28.7005) .1NDXS 
GO TO (7006.7007.9753) » INSR 
IUSR=2 
T(14)=l. 

GO TO 7003 

INSR=3 

T(14)=5. 

GO TO 7003 

FIGURE D-4 (cont'd) 


2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 
"2564” 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 
"2576" 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 


2595 

2596 

2597 


b 
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9753 

9754 

WRITE (ITP2*9754) DIIN *EN » WINA 

FORMAT (5H DIIN*F10.5»5X1HNF14.5*5X4HWINAF11.5»5X 

2598 

2599 


1 50HSUBCOOLER EQUATIONS NONCONVERGENT AFTER 20 TRIES T~ 

GO TO 89 

2600 

2601 

204 

28 

GO TO 22222 
DO 207 I = 1*14 

2602 

2603 


TlU = T ( I ) + DELTA ( I ) 
T3(I) = T( I ) * T( I ) * T ( I ) 

2604 

2605 

207 

DO 207 J =1*14 
DERIV ( J* I ) = 0.0 

2606 

2607 

802 

IFtABS" ( DELTA ( 1413 -.OD 802*204*204 
DO 803 I = 1*13 

-2608 

2609 

803 

IF IADs (DELTA (I) )-l. ) 863 *20 4V2U4 - 
CONTINUE 

2610 

2611 

206 

ELSCX = T ( 14) 

2612 


ELTX = ELC + ELSCX 

2613 

KTF- ' - 

ENPG = 144. / (RHOL *ELSCX>* (ST7/9260.-DPLC) 
IF ( ELTMX ) 36 * 36 * 35 



351 

352 
2003 


36 

2063 

2064 


IF(ELTMX-ELTX) 352*36 *36 

WRITE ( ITP2*2003) DIIN*EN* WINA*ELTX 

FORMAT (5H DIIN»F10.5*5X1HNF14.5*5X4HWINAF11,5*5X3HLTXF13.5» 
1 5X12H0UT OF RANGE > 

GO TO 89 


* C9 
.1666 


♦ TF / 2615 


IF(TTG) 2063*2063*2064 

TTX = TT * (ELTX * DOIN / (ELT * QIIN)) **0.25 - Z7 
1 (RHOT * EMETH * EMETH / (RHOF * EMEF * EMEFTT ** 0 
DOINX = 2.0 * TTX + DIIN 

WBRIX = 010833 * Z5 * EN * T2.fi * WINA +' DOINXT + 3.14 
WBREX = Z5 * WBRIX + 3.14 * Z6 * DCMAJ 

ST72 = DllN * DUN ~ * 

EMT = 0.00545 * RHOT * (DOINX * DOINX - ST72) * (EN * ELTX+ WBREX)2621 


2616 
2617 

* Z6* DCM1N26I8 

2619 

2620 


* ST73 + ELTX * EN * 


3579 


3003 


ST79 = Z5 * WINA 

WINXX = 5T79 + ST80 * (37.7 * DCMIN /EN - DOINX) 

WOUXX = 5T79 + ST80 * (37.7 * DCMAJ /EN - DOINX) 

EMF = 0.01388 * T3.0' *" RHOF - * TF'"* 

1 0 • 5* ( WINXX+WOUXX ) * (1.0 - C8)> 

EM IF = 0.0417 * RHOIF * TIF * ST73 
DIINH = 1.414 * DIHA 
ST75 = DIHA + 2 « 0*TH 

EMIH = 0.00545 * RHOH * WBRIX * (ST75 * ST75 - DIHA * DIHA) 

EMLI - “0709545 * ST72 * "RHOL * T En ' * HELSCIT +' WREXl 

EMCR = EMT + EmF + EMIF + EMIH + EMLI 
ACR = ST73 / 2.0 “ 

OTOTS = ST81 * CL * (TC - TOUT) 

ENUE = -ENUE “ 

ENPG = -ENPG 

WRITE (ITP2 *3579) ' “ 

FORMAT (//) 

WRITE ( 1TP2 * 30 0 3 ) D I IN * EN * W I N A * VI N * DTlNH ♦ DiHAV «6RlX* 

1DPIH ♦ WBREX * TTX * DOINX * ELC * ELSCX * ELTX »0PLC * WINXX * WOUXX * TF * 

2QTOTC * QFTC » QTTC » QTOTS* FEFC * ENUE *ENPG* EMT * EMFTEmIF » EMIH* EMLI » 
3EMCR * ACR 


2622 

2623 


2624 

2625 

2626 
2627 


2628 

2629 

2630 “ 

2631 

2832 

2633 


2634 

2637 

2638 

2639 

2640 

2641 


2642 

2643 


2644 

2645 

F0RMATTTrX4HDTrNT4XTFfNlIX4'HWINAlZX3HVINI* I0X5HDIINH11X4HD1 HaI6X5hWb2646 

2i2X3^H5^/8F16 1 5/10X5 CH BREX12^3HT^ H QX^ S D01 1 X13X2 C ^^^ ^^ H1 L5CX12X3HL264^ 

3TX11X4HDPLC10X5HWINXX/13X2HFT11X4HINCH11X4HINCH13X2HFT13X2HF T13X2H2649 

FIGURE D-4 (cont'd) 
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4Ftl273HT 5 5IllX4HTNCH/ffn5'.'57r^5WWoUXX13X2HTF10X5H<5T6TCllX4HO'FTC 2&50 
511X4HQTTC10X5HQTOTS11X4HFEFC12X3HNUE/ 26 51 


89 

90 

91 

92 

93 

94 

95 


7 , S/ IF 1 5 . b » IF 1 5 . 8 , 4F 15 . 1 * 2F 1 5 . 5/12X3HNPG13X2 HMT13X2HMF12X3HMIF12 X3H2653 
8MIH12X3HMLI12X3HMCR12X3HACft /6X9HN0 OF G»S12X3HLBS12X3HLBS2654 


912X3HLBS12X3HLBS12X3HLBS12X3HLBS10X 5HSQ FT/8F15.5// ) 
IF ( WNMAX - WINA) 91# 91#~ 90 

WINA = WINA + WNDEL 

GO TO 38 

IF (ENMAX - EN) 93, 93, 92 _ 

EN = EN + ENDEL 
GO TO 3 

irnJMAX"- DITTO 95 713i' "94 


2655 

2656 

2657 

2658 

2659 

2660 
2661 
-ZEE2T 


01 IN = DIIN + DDEL 

GO TO 2 

CONTINUE 

GO TO 1 

END 


2663 

2664 

2665 

2666 


SUBROU TI N E T ABL E ~ ~ " 

DIMENSION CCC ( 9>3) ,ZZZ(9i5> ,C(4) , Z( 9 > ,DER l V! 1 5 » 14 

COMMON V, J55, TH4LT, 1*10X5, TTPI. ITP2, 

1 PEPIV. DELTA, C, Z, VI, Y2, V3, Y4 


C CREATE radiator input TABLE 

C PROGRAM CONSTANTS - SELECTION 

DA T A CCC , 7 Z Z /3M .P,7»n,0,l , , 2*0 7071 ,125. ,3, ,73,0, .2*1 . 

1,75,1. ,1.5,0, .2. ,2*0, ,1 , , .3,5*1. ,0. .1 . ,0. • 1. 1 1 . • .5,0 . . 
2*1 . » i . 5 ,3* , 866 , j , .Du 1 . , 0, , 3. ,2 , Y 3*'7?TV7 »”1 • , 0 , , I , , 0 , , 4 . 
3 . n . . l . . 4 , , i , , i , / 

READ (TTPl.1002) T,J.K.L 
inn2 FORMAT! 411) 

C7R I TE l ITP2 , 1 0051 1 , J , K . L 


1005 


FORMAT! /8H PUNT IS 2X411/) 
CCC! 4.1) « 0,5 
DO 1 II * 1,9 
CMl) « CCC!Il,n 
7(11) • ZZZUl.J) 


9fl“T0~TTr,T37 16.1* , i 5 ) , J 

15 Z ( 3 ) * C ( 4 ) 

16 CONTINUE 


-2607 

)'.DELTA( 14 ) ? 6 fe« 

?669 

267n 

?(S71 

247 ? 

, . 87,1 72 5 72*77 

2*1. ,0. .4, ,22674 
, 1, . .5 70 7, 1.2 6 75 
2676 
7377 
26 7 6 
7679 
2680 
2661 
7687 

2683 

7684 

‘ 2685 

7686 

5687 


IF(K-l) 2 , 2 

SHTVT7 

Y2 * 0. 

"GO TO "4 

3 Y1 s 0. 

"T. 

4 IF(L - 1) 5,5 

“5 V3 ' * “TT 

Y4 a 0, 

RETURN 
6 Y3 a 0, 

yr - 

RFTURN 

FWT3 " 


3 


• 6 


2688 
2689' 

2690 

2691 

2697 
2*97 
2694 

2*93” 

2696 
2697 

2698 
"2799 

2700 


FIGURE D-4 (cont'd) 
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OIMENSION 4(15,14)# H<14> 


M 1 «N +1 


KIbK +1 


270? 
-2 70 3 
2704 
• 770 5 
2706 


00 100 I*K,N 


1F( J-1>10',13.10 
"to f P( M )i3‘,l3,n 
11 I P ( I ^ J ) 1 7 , 1 7,21 
17 !SMX«I-i 

00 12 ISsl.lSMX 


271? 


13 4 ( J t I ) * A ( J i I >-SUH 

GO TO ion 

21 JSMXrJ-1 

OO ?2 JS=1,JSMX 

22 SUMsSUK *A< JS, 1 )»4( J, JS) 

23 A(J. 1 >«4( J, I )-SUM 

100 CONTINUE 

I=K 

00 200 J=K1,N1 
SUM«0.0 

!F( !-l ) 233- 233, 231 

231 TSMX*I-1 

00 232 IS=1, ISMX 

232 SHM»SUK*4( IS. I )»4( J. IS) 


2720 

272T 

2722 


2726 

T 727 

272« 


233 ! F( A ( I»I))350,351, 350 


GO TO 200 

0 A 

200 CONTINUE 
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Figure 0-5 
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SOURCE DECK PRINTOUT 
PRIMARY/ SECONDARY DESIGNPROGRAM 


nHPK'SI OK T?E V ( 3 > ,F R { 3 5 . WFF 137 , RE ( 3 WPP 1 3 > . PH J (3) . STOP < 1 M , T$ f 1 2 ) . 30 0 o 


1 QJS<J_?WRIT(12WTS4{ j?),PE«IV(B,7)»DELTA(7).T(7), T3<7> 

‘ 2 , T I TLE f l 6 ) 

COMMCM K- , J55 , IHALT, TNPXS,nERIV,0ELTA,n,r.2,C3,C«,C5,C6.C7,C*.r.9, 
'"'i~Ti7T?,73V 2*775,26. 77. 2R.79, Vi , V2, Y3.Y4, ITP1 , !TP? 

PATA STOP / 6*0.0 , . 00431 . , 00531 » . 00 764 , , 1 3* , . 1 7 , . 244 , 4 . 33 , 

1 5, 33. 7. 6*. 1 ,126,1 ,54,2.650/ 

ITP1 = 5 
TTP2 = 6 


N a 7 

T REAP ( TTPJ ,1003) TITLE 

1003 FORmaT(16A5) 

WRITE UTP2. 1003 ) TITLE 
»FjAn f J Tp 1 f «nnn\ 

Innfi" F^RV 4 TTi 2 / , ( 3 Fin , A ) ) 


t T F { T ) * r ' T c * 1 ' * o 1 T t T ^ . T 


I N T 9 ) 


3^1 

3 * 0 ? 

3 'M^ 
3 "r 4 

^ O f*» u 


3 nfjf 

3 r n 7 
3 rT’ £ 


3 ° f . • Q 

3 n 1 n 

3 r ' 1 1 
3 * 1 ? 
3 ^ 1 ^ 


V'l 4 


PFAP ( ITPi , moi ) PCiTC.ENDT, XI w.nPTnT.Tnnr.P, r,AVMA # vifiv, 3^1* 

i~\71Sl ,HTGYCL '.RHOL ,^UFT*EKCiRMOT,PwnF f EKTW, FKF , RH^h , TM, F$ v , FT , FF , 3^1* 

?Cv/ p T I N i T Al ' , t L^PO i F hFF # E^FTH , JTG # E^UFG , TFN ! N # TF y A y , Ft P^v.ELP^V . 3*17 

3WMJM , w^AX f ITF , RHI^ f F lTMV , ALPmS, ALPHT 3ni* 

4 , n I MPU # n!N : PM#nT^Pr # FNL,FN> LJ ,FMnPL .^JVAI., 3 r l c ? 

5 w I N' A H a w ! N A D 3 r. ? * 

inoi F HRMA T ( flF 1 P « 4 ) 3 r»2i 

CAD: TABLF 3*?? 

WRITE ( ITP2i AD37 ) PC , TC - E*DT , X I S'. nprOT , TOUT i R * GA . V T SV , wj c; ( , MFG , 3 
' T " CL . R MXTL . "S L F T • t K C . R R0T7R w # F< r, Q h ft H » T W f FS V , F T , £ F 3*?4 


FIGURE D-6 
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(Sm7 PORM a T ( 5CH DESIGN PROGRAM ISO-PRIM/SEC OJRECT R/C W/SO / 1 3025 

T?H v \ xtu 1 NH[JT7T3^RPTriTX7PTCri; 2 V3 PM 0T f ? V 3 P XT IS l'U Y 5WTTRTOT5'iT'4'RTMlJTT" 3 'T , l’2^' 
PVlHRinx^P GAMMA/l 1X4 HP SI A1HX5HDEG R8X7HLPS/MIN|?7V3WPS 1 1. DX5H0FG Ml IV 303 7 
34HFJ /R/8F15 , 5//1 1X4HVTSV1TX4WV J 5L1 2V3HWFG1 3X2HCLH Y4HRWH[_i iyawri iFTl'OZft 
*1 3X2HKC1 1 X4HRM0T/?( 'sXl 0 HL r S/FT SEO ) 1 1 Y4HR/LB9 Y6HR/LP FfiY9Hl_RR/C! , ,F30?9 


5T9YfthLBS/FTAx9HR/HR FT F6X9HLRS/CI J , FT/2F1 5 , 9 ,’SFI 575 3^3 n 

f //I 1X4HRP0F12X3HKTM13X 3"3i 

'77PFF'13T4'FFP0H13Y2HTH'l?X3HFS\/l3X7HFT1,3X?HEF/6X9Ht.RS7rLI. FT5Y9 PR/HR FTH3’? 
«T F6X9HR/HR FT F6Y9HL.RS/CH . FT 1 1 X 4P I MCH/ ftF 1 5 , 5/ ) 3^33 

WRITE ( ITP?, A03fl JCV.TIN, TAU, FI.NPO , fc M FF , FMFTH , TTG , FNJUFG , TF"M I A' , T”34 

1 TFMAX , ELPMn, El PMX, WHIM, WMAX.TIF, RHIF .FL.TMX, ALPhS, ALPMT , 3 r '3R 

? n!MPL.PINPH,niM>P # FNL .F^H , EMDFL , W TMAL . W I NAP , WIN, AH 303* 


6 0 3 « format ( 1 3X?HCVl?x3HTIM12x3HTAni0X3H-LN‘P0l2x3HMEFl1 X 4 HMETM 1 jy 3 ujT'', 3 r J 7 
fT1'XapMLFG/8X7HB/LPS F10Y5WDEG R 1 lY4HDAYR1.fty?( 1 2Y3PPR j )] f XAHTMCPAX 3' r >3 n 
29WM0 OF 6 , S/4F15, 8 , ?FIS, 2. 2F1 5, 6//10XSHTFM I Ml oyRhTFM AYinxftwi.PM I Ml 03030 
3Y f >HlPMAY15X4HWMINillY4HWMAY12x3HTIFtjX4HPMIF/2(11 X4H INCH ) A (1 3 Y9HFT 1 30 4 r 
4l1Y4HlKCF6X9MLBS/00.FT/flF15, 5 / / 1 0 Y 5 ML T M A X 1 0 X 5*-* A L P PS 1 PXSM4LP^T8X7Hn3f'4l 
51 IMP nflx7HDI IMP FFX7HniIS|P 0t?X3HM 012Y3HM F/1 3Y2PFT3ny3 { 1 1 Y 4 V r T* r CP' 3 1 T 4’7 
A )/flFl 5 , S//12X3HM 09X6HWIMA 0 9 Y 6 P W IMA F9XAHW I IV A 0/1 5XJ ( 1 1 X4H I MOW ) / 3^43 


7 4F15.5//) 3044 

wIMAHswlMAH-.OOOOOl 3 n 4 1 

Fvw=FMh- .nrmoni <* 4 * 

0 [ MPH = 0 I NFH - , OCIOOOl 3047 

TSLIsO 3 r .4 ft 

IF(FLPMM) 515.5in.bl3 3 n 4 0 

510 TFfwMlM 6l5, 511, 51 3 ^nRr 

511 IP(TFMAV) 515.512,513 V’fti 

51 2 FFFFs ,4 v’5? 

GO TO 51 4 

513 FFFFsn.n - 3054 

514 I RL 1=1 3 r 55 

515 COM I Ml F 

PPWR=FMOT*nPT0T/ (236,0*RM0L) 3^57 

v R I T F (ITPp.ino?) PPwR T,n 5 * 

inn? forma T ( HP PPwR is , P 1 3 , ft / ) 30H0 

OSC s AO. # E v 0T * Cl * (TC - TOUT) 30 fc.fi 

OTOTP = F M 0 T # (5?, ft * XIM * PFG + AO. * CV * £ T | S! - TO) 30 AI 

OTOTS = 7.5 * FMDT * Y I V » MFO V A3 

RWOV = 144. * PC / ( R * TO) 3 n oY 

ROW = 5 , A 7 * SORT (R * TC. * GAMMA) t, 4 

OISC = .7H? » SORT (frOT /RPOl. ) 

00 400 M( MPR - •) t I ,\ T S V'A4 

TF(TS(KUMHR) ) 55 , 5*. 5A 


5ft TS4 ( Kl IMRR ) s' 5,ft3F+0fi • ( 0 I R ( MIJMRR ) * ALPP'S / ALPMT + G T T ( \n 1 -'PO ) ) 3"A A 


GO TO 57 

54 TR41MIMPR) s TS( M IMRR ) *TS( MUMMR ) *TS( Nl i-mw ) *TS ( M'.li'iMR ) 

57 WMOTS = TS4 ( NUMPR ) #* , 25 

RITE (ITP2, 5764 1 POTS 
ft 7 A 4 FORMaT(/ 7H TS IS F y , 1 , 6 P 0£R R ///) 

2 ' OT IMP : OTKPl ' 

3 PM s F N l 

4 wTMA s W I MAI. 


m|\i s i.OA * FMOT * YlM / (R^nv • njjvp » 01 IMP * E'f ) 
t F ( \/ 1 A‘ - FSV * ROVV ) 11, ft, A 

WRITE (I TP?, 2000) 0 I I MP , F\ ,* T M A , V l ' 

r\P',Trn , ft'T^X , TWTFT475 V 5X7^RVT KT ff; FT I7F rTXV 


1 3HV I m , Fl ? , ft , ftx , 1 1 hGT FS\/,SO\/\/ ) 
Go TO 91 


3 ’’oft 
30 7 1 ' 
3 (i 7 1 
'3 n 7R 
3 n 7 1 
3^4 

30 ?R 

3 "7* 
3 ft 7 7 
3 •> 7 r, 

3P7-5 

3^M1 
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11 DIMA = .5 * DUMP * SORT (EM / 71) 3"«3 

ft* I ha s T3FW - « r D"IW4 * VIM / (12, * VISV) ' “ ' T^4 

nFHA s .?5 • DIINP * SORT (EN / Zl ) 3 n 85 

RFEwa a RMOV * DEMA * Vf N / (74, * »'ISV) ' 3 .IF a 

RF.VTM s RHCV * DUMP * VJM / (12, * VISV) 3n«7 

0 1 1 Mg s' .5 #' DITMP # SORT (EN) 'jirfor - 

1? WRARI s .0833 * EM * (2.0 * WIMA ♦ ,75 • DIIMP) 3H*Q 

DPIM s ,000103 * RMOV # VIN * VIN * WBaRJ / ( 71 *nit-i A#RF!HA«* , 75) 3 r 'Rr. 
OPEH s, 0001725 #RM0W « VJM # VJM * <jBARI / ( Zl •DfeM A*RFEWA*# , 25 ) 3091 

Orlop *"~66?"» (dftpt - ppjh ^ tpfh + RHov#viM¥VTv y74j»no. T w?" 

IP(nPLCP) 13, 13, 14 * 3"93 

13 WRITE ( t TP?, 2001 ) DIIMP,EM,WIMA,DPLCP 3094 

2001 P0RyAT (3MPI IMP.FIO, 5, 3y,iMM t Pj 4.3,5V, 4HWIMA,Fll.^. c iy, 3^95 

1 5«DPLrP , FI 0 .'5 , 5v , fiMMEGAT 1 VE ) 309?' 

00 TO 89 3H97 

14 STOP In = ,974 4^9» 

STOP (2) = ,75 3^99 

STOP (3) s .571 31 PO 

STOP (4) = , 854 31OI 

STOP (5) s i543 3102 

STOP (6) = ,272 31 03 

Do ?8 I = 1,3 ' 31 H4 

RFV(!) s STOR(I) * REVIM 3105 

! F( REV ( I ) - 2000 . ) 1 7 , 1 7 , 18 3105 

±7 FR(T) « 64, / REV(I) Hi- 7 

On TO i 9 310* 

1" IF(REV(!) - 4000, 0) 15,16,14 31 HP 

15 FR( IT 8 fl.00277 # RFVM) ** 0,372 3110 

DO TC 19 Hii 

16 PR( I ) * .316 / PFV( I ) ** .25 3117 

IP WFFU) = ST0R(I+6> * FMDT * VIM * SO«T (RMOV / RmOL) * ( 1.0 - 31 IT 

T~5TOR( 1+3) * VIM) / (SUFT * 01! VP * EM) 311-5 

RF(!) s STOP(I+R) * EMDT * (1,0 - STOP ( ! +3 ) * V I M ) / ( 0 ! I vp#EM# v l «| ) 3115 

TF('.)FF(I) - 3.0) 70, 70. 72 * 3M* 

70 IF(P_F.CI) - 700,0) 21 . ?1 , 2? 3il7 

71 DR( ? ) s STC*( 1+1?) * SORT ( (1,0 - STOP ( !+3 )«XIm)*‘'I RL*P L i O' / / 31 1 c 

1 (FR(I) • RF V ( I ) • VIM * VISV * R^OD) 3110 

fF(PEVU) -700Q. 0) 73.23,74 312^ 

73 PMI(I) s (1,0 + DR ( I ) ) *# 4.0 3121 

00 TC ?« 3177 

24 OMIU ) 8 ( 0.5 + SQRT ( 0.25 + nR( j )))** 4,75 ti ?3 

fio TO 2R T 1 24 

2? PHICI) = STPR(I+15) / VIM #* ,75 312^ 

-?« ‘ ' 'CDMTTnLF 3i?4 

Mrn*-'0 8 Y1 * Y4 * 1,375* VIM * SORT (Cl. * RHCL * PH^V * EKC * 31 77 

1 FR(2) / V J Sl ) + 7000. 0 # Y3 * VI ♦ 5000.0 # V? 31 

FL C.P = 7370, * DPLCP * DUMP / (RMOV * VI* * \/ J N: # (Phuj) « FR(i)3i?P 
1 * 1.O8? + 1,333 * P M I ( 7 ) * FR ( 2 ) + 1,02 * PHM3) * FR(3))) 31 3T 

IF(FLPW) 32,32, 29 31 ii 

?0~ TF(FLCP -'ELPMM) 31,31, 30 313? 

3_o ip(Fi_pyy . ElCP) 31 , 3i,3? 31 it 

31 WR I TF ( I TP? , 2 n 0? ) PI IMP.Fm.wI mA.FlCP 3134 

20 P? _F0RmaT(5HPI I\P,F10,5,5V.1HN,F14,S,5v,4hwINa,F11.5,5v, 31 35 

1 3Mi CP,Fl?,5,5x,l2HOUT OF RAMfiE ) ' 31 3A 

_00 TC 89 31 37 

37 EmijF = 17.9E-04 * (DUMP * Ev / (VISL * EMDT * RhOL))** ,33333 31 3* 

1 * ( RHCV*VJM#VJ V / RE V I M** , 75 + 6 . 1 «*FM0T* V I M/ ( 0 I I VP+F LDP*F ' ! ) ) 3130 

IFTFmIFG ) 35, 35,33 3145 
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33 !F<FKUEG - ENUE) 35, 35 ,34 31 41 

34 write <TTF?.2-rcm BTW7FK , M TnTTFWlIE “Ti435“ 

?nn3 FORMAT ( 5pD I IMP, El 0, 5 , 5X» 1WN.F1 4 , 5, 5X» 4HWJMA,F1 1 , 5, 5* , 314 3 

1 3HN'lE.Pi?,5,5x,3?HnuT OF RANGE ) " 31 44 

G 0 T 0 8 9 314s 

35 DP|_CS s .5 * DPLC.P " 3'1 4 h 

ELCSs 57 4 , 0*PPLCS«RfcV'IM#*o, 25 *DI IMS*fcM*«r , l25/( RHOv» V |N#v I M ) 3147 

FISTS * PUTS* CL * TC * (TC*TC*TC/(TOUT*TOUT*Tni'T3-f , >/f ,375 WJHM" 
FLTS = FLOS + ELSf.S 31 40 

ELT s ELCP + FLTS 31 5" 

TF(FlTMX) 3ft, 38,36 3151 

36 ! F ( rLTVX - FLT) 37, 37, 3« 315? 

37 WRITE (I TP?, 2004) P I I NP , F N , W I M A , F |_ T 3153 

2 n n4 FTRWATC5RPI T \P , FIT, 5 , 5y , fWN , FI 4 , 5 V 5V , 4HW I w A , FI 1,5,5V, 3154 

1 PM| T,F13,5.5X,1?H0HT OF RAN'GF ) 315s 

GO TC 89 3154 

3ft ATP = .1965 * EM * OJINP * F|_CP * Z? 3157 

ATS s ,1965 * D t IMS * ELCS 3T5° 

AD r ATP + ATS JISQ 

TF(TTG) 40,4(1,39 - 31 60 

39 TT = TTG 316I 

TTP = TTG 31 67 

GO TC 41 3167 

40 TT = 3,31 • (AP*TAU /FL^PO )** ,25 / ( RMOT#EMFTM*Fmrtu ) ** , 1 6666 3164 

41 OOAVF = .75 * DUMP + 2.Q • TT 3166 

I'M'D'F'X =1 3166 

TF(wvax) 45,45,4? 3167 

4? STCRF = .0833 * EM * (2.0 * WlNA + OOA\/R) 3168 

! F ( S T 0 R F - W M I Ni ) 4 4,44,43 31+0 

43 IF(WPAX - STORE ) 44,44,45 ~ 31 70 

44 '-'RITE ( I TP? , 2005 ) P I I -NIP iFM.wIvA, STORF 31 7i 

20 05 format ( 5pn I IvP,Fin t 5,5x,iWN,Fl 4, 5,5V, 4 hp IMA, F i 1.5,5V, 317? 

1 1 hw , F l 4 , 5 , 5x , 12HOUT OF RANGE ) 3 1 7 ^ 

GO TO ft 9 3,74 

45 STORE = COAVP / WlNA 317=. 

OTUPsn , 2857F-P9 * Z2*FF*r)0 AVP*E|_ CP*FN# ( TC*TC*TC*TC-TS4 ( m(|NRR )) 3176 

6000 J55 = 0 31/7 

l F ( C5 ) 47 » 46 , 47 ' 3178 

46 F 3SP = SRRT (.05 * STORF + ,0025) / (storF + . 1) + 3170 

1 SORT (1,95 * STORF + 3.A03) / ( ST n RF + 3.9) 31A0 

R4sp = sort (0,2 * storF + ,04 ) / (storf + . 4) + 3ihi 

1 SORT (1,8 * STORE + 3.2* ) / (SToRR + 3.6) 3187 

F5SP = SRRT (.45 * STORE -t-,2025) / (STORE + .9) + Jim 

1 SORT (1.55 '♦STORE + 2.403 ) / (storf + 3,1) 31.74 

F6SP = SORT (0,8 * STORE + ,64 ) / (STORE + 1.6) + 31 4S 

1 SORT (1,2 * STORF +1.44) / (SToRF + 2,4) 3 166 

RlSP = 0.6366 « (1 ,+(2.0/ST0RF ) * (1,0 -sqrt ( n , s#storf+i , o ) ) +,s* 

1 A T A A (SORT (8,0/rtorf * (t,o + 2.0 / STORE)) V ) 

47 IF(05-1.P) 50,48,51! 3 1 •' 9 

48 T F { 7 3 ) 4F,5?,4 9 . . 7 

40 F3SP = (.05 * STORE ♦ .0025) / <ST0‘>b * (STORF + . 1 ) + . 005) + 3l9i 

1 (1.9S * stoqf + 3,803) / (STORF « (STORE + 3.9) + 7.606) 3197 

F4SP = (.2 * STORF ♦ ,04) / (STORE « ( STORE + .*) + .04) + 31RT 

1 (1.8 # STORE + 3.24) / (STORF * (STORF + 3,6) + 6,43) 3194 

FSSP = (.45 * STORE + ,2025) / (STORE * (STORE + .9) + .405) + 319,=. 

1 rTT55 it Storf- +- ~ 2 ", 4 ,T 3 ) / rSTTTRF' » TSTottF • + ' 3; l - ) "+ 4.5P6T 33-9-6— 

F6SP = (.ft * STORF + .64) / (STORE * (ST0»F + 1.6) + 1,28) + 3197 

1 (1.2 * STORE + 1.44) / (STORE * (STORE + 2,*I + ?. R 8> 3i9 r - 
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E1.SP = n.3l«3 • (ATAM <1,0 * 4,0 / STORE ) + 0.2146) 319° 

"50 ""TFTC5^2TF 5 53 ,5?, 5 3 ' " " “ — " jpr.p 

52 F3SP = 1.0 3201 

p 4SP = l. n ' ' 3?tj2 

pe »SP_s 1.0 3203 

F *SP 8 1".0 - 

fisp = i.o 32 cs 

53 00 TC C 54 , Aft), INDEX 3 ?tia 

54^ JP(ISLl) 6l,6t,5ft 3?07 

5« ETORr=<-GTGB*<2.lE+ll»E!*[)T*(0,875*X!\*HFG+CV#TJN-rv«TCy > ) / - - j?nt> 

1 ( p \ * 2,0 * WJMA • FLOP *(TC«TC*TC*TC-TS4f VMMMR) )*EF*7?) 3009 

" IF (STORE - FEFF) AO, 59, 59 3?ir 

59 _ IFIl.O - STORE) 60, 61, 61 3?H 

6 n ‘ w R I TF ITT P 2 .2006) 0 1 I NP, FNi , W I m A , STORF 321*5 

?nn6 _F0R”AT(6H DI INP,F9 t 5,5X,lWN,F14,5,5X,4HWIN A.FU.5.5V, 3?10 

1 4HFEFF,Fll,5,5y,12W0UT OF R A N G F ) 321.4 

GO TO flP 3 ?1 c, 

65 OIAVP s .75"* DII^P 321 a 

Of IN = Of AVP 

nOfN = DC A VP 35} ; 

VIC = FlCP 3 ? }0 

X V 1 m s w 1 N a 522*' 

STORM) = 73 3??. 

STOR(?) = Z 4 3??? 

ST0R(3) = Z? 

STeRT41 = -TPnT/EN*(17.5*XIV*HFC+?0,0*CV*(T!\'-TC.) ) 3??4 

STORE S(TC- TOUT) / 6.0 

M'OFX = 1 32?* 

6999 fN'SR = l 30-^7 

7 000 " TTi ) = TC-i 0 , 35^,. 

Tf?)=TM>-5, jv?o 

155=0 3?3 n 

nn 6555 1=3.6 3-731 

6555 TU ysTU-l 5 -30 , 39 3 p 

00 62 I = 1.6 3?3T 

60 T3( T ) = T ( I ) * T ( t ) * T ( I ) 3734 

GO TC (6101,6102). 1 K SR 3?56 

61 or T ( 7 ) s , Pi 323* 

1 M SP = ? ; ?37 

Go TC 6740 3 ?3= 

610? T(7) = .l 303c. 

fMSR=3 3240 

6740 00 621 1=1,7 3741 

too 6?i o=r»ft 30415 

621 OPRiv/( J, I ) = 0,n 

STOP ( 5 ) = DIIN / (24./MC0N0 + (00I\ - 01 I*4)/FKTh) 324 4 

STOP ( 6 ) = C2 * FKTf. * (00IN - D II Nl ) / ( Op f N' + 0II‘ v ) 3 "5 4 5 

OPR I v ( 1 ,1 ) =-1,394 • Cl * STOP ( 6 ) * Xl.C - 1,7 * S T 0 R ( 6 ) • xi.C - 324* 

1 4.*1 .495E-1 0*F1SP* STOR ( 1 ) * C7 * IJOIM « y L c « ft # T3(1) 3747 

~OFWIvr?,ir) = 1,7 * STOR ( 6 ) * VLO 3 2 4 ’• 

np R \y ( fljM ) = 1,394 « C-1 * STOR ( 5 ) * XLC. • (T(I)-TC) - 1.7 *STCR < 6 )3?4« 
T *Xi C«'( T(?)-t( 1 ) )-l ,495E-10*F1 SP*STOR(l )»C7 *DOIn.'*vlC*Ft* 3? 5^ 

2 (TS4(M,^PR) - T 3 ( 1 ' * T(l)) 3-751 

OFR I V( 1.2) *' OEPIV(?,l ) / 2.0 3250 

OPRI V(3»2) = 6,67 * T ( 7 ) * XLC. / X W I N * EKF 3?53 

OFR?V(2»2) * -,34P * C3 * STOP ( 5 ) *XLr-OEPIv/(3,2) - OFrjvM,?) - 3254 

1 * ST0R(?> * C6 # F.F * noiM • y|_c « T3(?) 575^ 

OFR I vTft .2T = . 346 “SECT'S 5) "* vLC # <T(2) - TC) OEPI'/M,?) 3?56 
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1 * (T(?) - T( 1 ) ) - D£RIVO,2) # ( T( 3 ) - T < 2 > ) -,23ftF-10 • STor(?> 37B7 


T * "TT5"~«"'EF *‘T7DT>nr~XC C « TT5^X vUMflir) TTC7 T*Tr?17 TFSF 

OFR I V ( 7 , 2 ) s ft,ft7 # XLC / XWJM # FKF * (T<3) - T(?)) 3' 5 5><5 

STORE s xLC / XWP* * EKF 3?6Ti 

OFR Iv ( 2 » 3 ) * 6, ft 7 * STORE * T(7) 3761 

OF R 1 vT 4 ,7) * 2,7? * STORE"* TC7) — 3'?*’ 

DER I V ( 7 , 3 ) * STORF * (6.67 * (T<25-T<3)) - 2,72 * (T(3)-T(4))) 3767 

T!FRT\7T3y3T s - ' PER I V ( 2 , 3 ) - 0FRTV(4,3) - 4,0 * , 9**F-11 #' ' FT O'RT'3') 326 4 

1 » 02 * EF # XLC * VwlN * ( C6 + F 3SR ) * T3<3) 3 26ft 

nFRly(fl,3) s-DERIV(7,3) * T < 7 ) - , 9SE-11. * STOR( 3 ) * " C? * FF * 376 ft 

1 Y|.C « VtolN # (Cft + F3SP) * ( TS4 < NijoBR )- T3<3)*T(3)) 32ft7 

OFR I V ( 3 , 4 ) r DERJ V (4,3) 3F6' 3 

DFR T V ( 5 , 4 ) = 1, 334 » T ( 7 ) * S T QRE 37ft9 

fTFRTV (7,4) S STORE * (2.27 * C T ( 3 ) -t ( 4 ) ) - 1,334 * ( T ( 4 1 -TTS ) ) ) ' 377" 

OFR I V ( 4 , 4 ) *-DERJV(3,4> - DFRIV(S>.4) - 4,0 * 1.9E-11 * ST0p<3) * 3771 

1 0? * FF # XLC * XWIM * { C6 + F4SR) * T3(4) 377? 

DFr f v ( 8 , 4 ) s-DER I V ( 7 , 4 ) * T<7) - 1.9E-11, * ST0R(3> * C? * FF * 3773 

1 Vi. C * XWI\ * (Cft ♦ F4SP) * (TS4 (MIDiSR ) - T3(4) * T(4T) " ' 3774 

0ER I V ( 4 , ft ) s HER I V ( 6 * 4 ) J77S 

OFRTVCft.ft) s ,9*,? « T ( 7 1 * STORF * 327ft 

DFR I V ( 7,5) = STORF * ( 1,314 * (T(4)-T(ft) ) -,9S? * { T ( ft ) -T ( ft ) ) ) 3777 

HER I V ( 5 , 5 ) = -DFRIV(4,5) - DERIVE, ft) - 4.0 * 2.*ftE-1.1' * STOR ( 3) 3770 

1 * C2 * EF * XLC * X w ! N * (Cft ♦ FftSP) * T3(ft) 37 7° 

DFRIv(fl,5) * - DFR ! V ( 7 , 5 5 * T { 7 ) - 2.8SE-11 * STOR(3) * C7 * FF 3230 

1 * ylC * X to 1 M * (C6 + FftSP) * ( T S 4 ( m U ^ R p ) - T3(ft) * T < 6 ) > 32*1 

DFR I V ( 5 , 6 ) e D E R J V ( ft , ft ) 37F.7 

OFR IV (6,6) = - DER P' ( ft » ft ) - 4,0 * 3. OF -11 * ST0R(3) * 0? * PF * 37*3 

1 YLC * VtolK * (Oft + FftSP) * T3 ( ft ) 3 7 ft 4 

OF Riv (7, ft) = ,9ft2 * STOWE * (T(ft) - T(ft)) 32 «ft 

DFRTu(ft > ft)=-T(7)*nERIV(7,ft)-3,ftF-H * ST(1P(3) * C7 * P F * XI.C * 37Rft 
1 YtolN * (06 + FftSP) * ( TS4( ft'ijwBP > - T 3 ( ft ) * T(ft)) 37*7 

DFR T V ( 1 , 7 ) = .697 * STDR(ft) * XI.C * 2.0 * Cl 37fto 

DFR T v ( 2 • 7 ) = . 697 * STOW ( *3 ) * XLC * C3 37 

DFRlv(fl,7)=STOR(4)+.ft97 # STOR(R) « XLC * ( 2.0 * Cl * (TC - TCI)) 379" 

1 +■ C 3 * (TC - T ( 2 ) ) ) 3791 

T MDXS = T 3797 

CALL CROiT y?Q3 

O.o TO (7fTS , in ),TMDXS " 379 4 

10 00 TO ( *103. 61 04 ) , p'DFX 379* 

6io3 r.o Tr ( 7rnn , 7oon,Rfji n ) , imsr 379 ft 

ftl 04 0.0 TO ( 7PP0. 7000, ftotl ), Imsr 1797 

ftOin WRITE (I TP?, 7007) D I I MP , Fm , to T v a 3790 

7007 F DRN'AT ( ftl- 01 I M P , F 9 , R , Sx , 1 WM 1 F 1 4 , *> , 5X , 4 mv 1 1 ; ! 4 , p 1 1 . ft . ft v , 3^90 

1 S2MPR I ('’ARY-COMP , E0U4TI0 M S MOMCO^'VFROF VT AFTFR ?d tRIFS ) 3^00 

o,D TO flO jv:i 

flon WRITE ( ITP'2, «013> D 1 1 MP ,FK , to I m A 3^07 

4013 F OR w A T ( ftH C I I VP.F9 , S, Sx , 1 ^\,F1 4 , 5 , ?Y , 4Mto I K'A ,F1 1 . R , SY , 3'DV 

1 F 2 MSFC 0 NP , rCD\D , EOuATWS mOnCON VFRO.Fy T AFTFR"' IF S 5 3^04 

0,0 TO ft9 33 , OR 

7 rn F no '7004 I s' 1,7 -■ 3 -rrjft 

T ( I ) = T ( I ) + UFlTa( I ) 3307 

7D p 4 T3( I ) = T( I ) * T( T ) * T( I ) 33 T° 

DO 7001 I s 1,6 Vv'.o 

I F( ABS (PFLTA(I)) - 1,0 ) 7001, 7001,7003 3310 

7001 COMTIMLF 33i-( 

Forr? JP(AHs (rFL'TA C7 ) T"“T rmTTT T7TTT r R'r7DTlT7TCrTT3 — J^TP' 

7003 r.o TC 674p 33 ^-x 

700ft 0,0 TO ( ft3 , 71 ) , I MDFX 33 ] 4 
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63 TEP s T(7> 3315 

TTTiTTTT 37T* 

IE(TFMAX)67, 67 ,64 3317 

64 TF(TFMAX -“TFP ) — 66. 65. 65 337. " 

65 I P( TFP - TF^fN) 66. 67. 67 3719 

"“56 WRTTF”TTTP2.2P0« 7 TTTTNP7EN . W1 MJ ,TFP 3370 

2006 F0RNAT(6H D!1N | P.F9,5,5X1HM,F14,5,5X4HWINA,F11.5,5X 

1 7HTFP.F1?.5,5X.1?H00T OF RANGE > ' “3327 

GO TO 89 3727 

~ 67 GFS“i 3.75 * HFG • F MOT • "XTN"W “,OT43E-«"* ( , 75 # “TJT TW5“ ♦ "2T~*“TTT3324 

1 * FT * ELCS * (TC*TC*TC*TC-TS4(NUPRR) ) 3326 

GTTP * DCTK TLCP * (47455 * FlSP * 73 * C7 * FT *(T3(1 J*T< 1 ) - 
1 TS4) ♦ 1 . 428*Z4 *C5 *EF *<T3(2)*T<2) - TS4 ) ) * l.E-10 « EN 

- S p T P.Q TOT P w0TT P - - - - - - 

TR4=(TC-(TC-T12)*(ELCP»OI !NP*EN/CFLCS*0! INS*7.0) ) )*«4.0 3327 

WING s“60,~4E*« * OFS / (ELCS * EF # ( TR4-TS4 ( NU“BR ) > > 372* 

IF(WINS) 69.70,70 7729 

69 WRITE ( ITP2.2009V ““ “ ' Oil NP.E'N, w f NA , V 'I Ng “3T3IV“ 

2HP9 FORMAT ( 6H D I I Np . F9 , 5 , 5X1HM, Fl4 , 5 , 5X4HW I M A , Fll , 5 , 6V 

"“1 4“HWTNS“.FTir5',5X,12W0Ur OF 1 RANGE ) 773? 

GO TO 89 3737 

"70 no A VS “*"775 * DUNS + 2.0 * TT " 3734 

STORE » OOAVS / WINS 3336 

INOFX s 2 “ 3736 

GO TO 6000 3737 

"68 0)1 AVS = 7T5~*"DI I N’S 3338 

OHM = DJAVS 3739 

00 IN s' DOA vS 3740 

XI. C S ELCS 374j 

XW I M = WINS ' 37 4? 

ST0R(1) s 1.0 7747 

"STORt?)' s ~i . O 374 4 

ST0P(3) = 1,0 3746 

ST0P( 4 ) = -?,5 * FmOt » X I N * MFG 774* 

TNSRsl 3747 

GO TO 6740 " ' 7748 " 

71 IF(TTG>7im, 7101. 7102 3749 

~ 71711 TTP = 2 , 37*T72*TATJ*TEl.CP*OOAVP*FN+ELCS«OOA VS ) /ELNPQ ) **0 . 25 / 375" 

1 (RHOT * FNETH « FMFTH) **,16666 - 77 * C9 * TFP / 3751 

2 (RHOT ♦ T*FTR * E FIFTH / (RHQF • EMEF * E^EF))** ,1*666 375? 

7102 CO NTIN UE 3757 

TFS s Tm 3754 

OOAXP s .75 * DIINp ♦ 2.0 * TTP 3356 

00AV“S~S .75 * DI I NS + 2.0 * TTP 3756 

wRRIX = .06333 * EN * (2.0 * WJNA ♦ OOAXP) 3357 

OOSC s DISC +2.0 * TTP 3758 

ENT s ,00545 • RHOT * (FLCP * EN * ( DO AXP*DOAXP-n 1 A VP*n ! AWP ) + 7759 

T1 ELCS * (D0AXS*D0AXS-D! AVR*0IAVS) ♦ El.SCS • ( DOSC*OOSC-0 1 SC*n f *C )) 3760 
P-4F s ,00694 * RHOF * (Et_CP » TFP * (C8 * WRRIX * 12, + 2.0 * £*• 77fei 

”1 * ( I ."D w - CRT * WIN A ) * ELTS *TFS * (C8 * (2,0 * VIMS ♦ DOAXS) 776? 

2 ?,n * (i.o - C8) * WINS)) 3^67 

'EM IE ="“.“0633“ * E cep" * RH IF* TIE * ySRlX 3764 

PMHS = ,00545 * RHOw * WflR I X * (C0lHA + 2.*TH)*(niHfl + 2,*TH) - OIt-6 7766 
1“* MHa “+" (DEMA ♦?,*TH)*(OEMa ♦?,*TH)"- OEhA * OF.WA) ' 376* 

F ML J = .00545 * DISC * DISC * RWOL * FLSCS 3767 

FM'CR = PMT + FMF ♦ FM IF ♦ EMhS + E Mi. I 7768 

ACRP = WRRIX * ELCP 376° 

ACRS = .0633 * ELTS « (T>OAXS + 2. * WINS) }77n 
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OlIMH s 1,414 * D ! H A 3371 

OflEWE s - T'.TTi *13FW " ' T37? 

FFPP = 17,5F+« * QFTP / (F.N * ELCP * FF * l? * W[NA » 3373 

1 (T1?*T1?*T12*T12- TS4(MU m BR) ) ) 3174 

nfFP = .354 * DUMP 3375 

wPlfE nTP?,333?> ' — 317? 

333? FORMAK/n 3377 

,,ip 1TE r ( J T pp , ) D M MP . FN! , W T Nl A i V I M ,'ni ITvTW, T -TRR J y ,'ITPTH'i 317^ 

1 p !FwF,DPFH,TTP,F.LCP,DPLCP.t5 1 FP.FFFP.TFP.nl INS, ELCS.nPLCS.ELSCS. 337 9 
? FL T , TF 5 , WINS, DISC, OTOTP , nTOTS . 050 , FMT , EMF, EM ! F, E W H5 , F^L l TW 

3 FMCR, ACRP, ACRS.EMUF 33*1 

30 no FORMAT ( 1 CV5HD1 lMPt4yi"M\(liy4MWllMAl?X3H\>lMiny5HDI lN;MinX5WM'Bf?rVl \ X4-IP334? 


1P?H1 0X5HC1EHE/ . llX4MINCM26X4H!NCH9X(SHFT/SECUV4HIMCWl3y?HFTl?v3MP«;33H? 
?H 1 X4HIMCW /.RF15.5/ , lTX4HDPFHt2Y3HTTP12X3HLCPinV5W0PLCPIIV4«UTFPTV*A 
31 1 X4PFEFP12X3PTFP10X5H01 I MS/ , 1 2XJWPS I U X4M 1 MCM13 X?HFT1.?X3 l -'PS f 1 1 X4*33«5 
4TMCW2?X4H\ChllX4HIMCH/ . BF15.5? . 12X3HlCSi0X5HnPl..C5i1 X4HL_S05T3V2 H 33B? 
^LTl?X3HTFSllX4HWIMSliy4WniSClOX5HOTnTP/ , l3y?HFT1 9Y3HPST 13X2MFT1 3* 338 7 
??wFT, 3 ( HV4H1 MCM ) , 11 X4HB/HR/ , 8F15 , 5/ , tnV5WQT0TS12*3MQFCf3V?WMT 33HP 

71 3XPHMF1 .2X3HMIF12X3WMHS12X3WML 1 12X3^10 «/ , 11X4HB/HRH x4hP /mr , f, ( i?x 33«9 
A Thi BS) ,7 .8F15.5/ ,llX4HAC'RPliX4WACRS1.2X3HNUF/,mx5HFQ FTin«*>HSG 3 i 9 n 


9FT0V9HM0 OF G.S/ .JF15.5//) 3391 

«9 t F ( V I M A M - W I M A > 91, 9i ,90 ' 339? 

90 WIMA = W I N’ A + W 1 NAD 3393 

0,0 TC 17 3394 

91 IF(FNH - FM 93. 93. 9? 3395 

9? CM = F.N + ENDF.L 3394 

0,0 TO 4 3397 

93 TFfOIMpw „ DllNP)40n. 400. 94 339P 

94 01 IMP s Cl IMP + OINPD 3399 

0,0 TO 3 ■" ' 3430 

400 CONTINUE 3401 

■ ■' 00 TO 1 340-5 

FMD 

RMRTJOITTTNF TSP'LF 34 03 

0 1 MENS I OK CCC(9,3> » 7 7 Z ( 9 , 5 ) ,0(9) , 7(9>,0EPIV< 8, 7),0EL T 4( 7) 3404 

COMMON K, J55 , IhALT, INDXS. 3415 

1 ORR I v , CFlTa, C, Z, VI. *2, v 3 , V4 340* 

? . t TP1 , IIP? 3407 

C CREATE RADIATOR INPUT TABLE 34f:» 

C PROORAV CONSTANTS - BRlFOTION 34 00 

OAT A CCC.7Z 7/3*1 , 0,3#n,p,t, ,?*0.0,1 .125. .5, .75,0. ,?*1. , ,B?,1 . , ,?5.341o 

1 .75.1 . . 1 .5.0. .2. » ? * 0 , ,1 . , ,5.5*1. » n . .1. *0, ,1 . .1, , ,5, n , ,?*1. , 0 . . 4 . , ?3 4 11 

?*1..1.5,3*.868,l,,0,,1..0».3,,2.,3#,7n7,1..0,.l.,'i.,4.,l.,, 5,0. ,1,341? 

3.0. .1. .4..1. .1,/ 3413 

PFAO ( I T P 1 ,1002) T.J.K.l. 34)4 

1 0 0? Tip R m a TT 4 T 1 ) 34 l* 

WRITE ( ITP2.1Q05) I , J.K.L 341* 

1005 C0RvaT(/ 8R PljMI T IS ? X 4 f 1 / ) 3417 

CCC(4,1) = 0,5 34l« 

00 1 U s 1,9 34 19 

C(I1) = CCC(Il.I) 34?n 

1 7(H) = 777( 11 . J) 3421 

00 TO (16, 15, 16.1?, 15). J 342? 

15 7(3) = 0(4) 3421 
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16 


CONTI MUE 
) 2 

VI = 1 . 

Y? n t 
GO TO 4 


“DT 

1 . 


5 


Y 1 = 

V? = 

"Tfttt 

vt r i , 


TT‘ 


~5 • 5""T‘ 


v 4 = TT, 
PPTURM 

6 

v3 = n. 

V4 a 1. 

Qb H IR7T 

FMD 

SUBPOUT ! N F CPOUT 

■- 

niMP\SION A( ». 7). H( ' 
enw^CN N , J5P. IhALT, 
NiT*“M+i 

nn ?on k=i»v 

— 

KlsK+j 

J = K 

nn mo Tav.fj 
silvan. 0 


Trr i.TV^P'. <1 t _ n n 

t ' Nu'i/iuii-'lJ-W 

in 

IPt 1-1 ) 1 3 • 1 3 » 1 1 

11 

17 

IHT.JJiT, l7.2l 
tnYy=l-i 

1 ? 

13 

71 

2? 
23 
' "1 no' 

nn 12 T p - 1 » I s”X 

S'JM = SIIY + A( ip, ! >*A< I , IS) 

Arj,iy=rrj,n-suM 
r,n to mr 
jsvys j-i 
nn 72 jS=i . js v x 

PUVSSUY+At JS, I )*At J, Jp) 
A( J, I ) a A ( J , I )-StlY 
COMT I N L F 
I=K 

nn ?oo jski.mi 
RI lMsO.O 

231 

232 

!F( 1-1)233,233,231 
TSMYs?-l 

DO 7J7 I pal, T «=MX 
S'IVssuy + a( IS,!)*A(J,1S) 

233 

TP(A(l.l))35a.33l73^ 


I NO VS. A, H 


3424 

— 

342* 

342* 

342^ 

3430 

— TOT" 

343? 

3433 

3434 

■ 343 ^ 

3436 

3437 “ 

3436 

3439 ' ~ 

34 4 0 
3441 
344? 

3447 
34 4 4 
34 43 

5446 

3447 

344* 

3449 

345 ^ 

3451 

545? 

345^ 

3454 

3455 

3456 
5457 
545P 
3 4 59 
34 6 0 
3461 
346 ? 

3463 

3464 

3465 
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3467 
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35 i k j, i )*n,n 

r,n TO 2no - — - 

350 A(J.I)*(4(J,I )-SIJM)*(l,/A< lip) 

?0f) OOMTIMUP 

C HAVF COMPLETED FINDING TMF DERIVEn MATRIX 

on mo is*i.to"" 
snMsn.n 

“.TW'-TS+T 

JSlsJS+l 
no ?80 KSeJSliN 
TF(KS-\ )?ftO»2 ft O»3no 
?«0 SIIM = SIIM + A(KS. JS)*H(KS) 

300 

J55= J55+1 

TF(?0-J55) 30?.30?#303 
in? MAI T = 99 
TMOVS s 7 
303 RFTIIRM 
E MO 


346H 

"T4W 

3470 

34 71 
347? 

3473 

3474 

T475 

34/4 
3477 
347f- 
3479 
3 4 4 n 

3 4 ST 
344? 

34 hi 
14 44 

~y4W" 

34HA 
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i no 2 

600 

1005 

9547 

93 4 8 
9549 

1 non 


SOURCE DECK PRINTOUT 
FUEL CELL PERFORMANCE PROGRAM 


HfMFKSTTfX QTSTI2), 0 1 T ( 1 2 5 , T$4( 1?) , TS(i?), FN'MEriT") » 40 Dn 

1_ T0 |! < 1 ?) , AViOTd 2 ) , 4M n r,{ l? > , AMVJ ( 1 2 ) , OPTPTtt?), 4001 

CimFT C 2TT, GTSI i? ) . QFS ( 12 ) ,PSA f 3 ) , EMDVf 3 ) , Rm( 3 ) , R<J M f 3 5 , T5H ( 3 ) , \/M( 3 ) 4 002 
3.RE(3).WEF(3),RF(3>,TSTOR<3),PH!(3).FR(3).DR(3). AHTC( 1 ?>, 4005 

4 Am\/E(i2)'.0PR!V(?2,?i ),nFLTA(71) , TC?l>, T3 ( 21 ) , STOR ( 1 6 ) 4004 

5.yTS(12,l?),xaiS( 12,12 ),X 0 IT(t 2 , 12 ).TITL 6 ( 16 ), INTSXd?) 4005 

Common m, j55, ! H A|_T » 1M0*S, O'ER TV', DFlT A , Cl , C? , C3 , 04 , C5 , C 6 , C7 , CS' . 4006 ' 
1 C9,z 1 ,?? * 73 ' 74 *Z5»76»Z7 i 78,79, Y1,y2,Y3,Y4» ITPt, I T P 2 4007 

V = ?1 4008 

fTPl =6 4009 

TTP 2 - = 6 4 ni n 

■a'RITE (I TP?, 1002) 4 n ] 1 

FORMAT ( 60E PERFORM A MCF ANALYSTS PROORAM.H? - H20 FlJFI_ CR-L. HTRFCT 401 ? 


1 R/r. ,/) 

REAP f I TFr.TOTi 5 ) T I TLF 
FORMAT ( 16 A 5 ) 

4 R I T F < ! TP? ,1005) TITLE 
RFAO ( ITP1 , 9347 ) MSf TS 
FORM ATT 12 ) 

00 9348 j=l , NSETS 
~REAO n TFT, 934 7 ) TNTSX(J) 

K=INTSX< J) 

rfao t i tp 1 , 9349 ) (XTstf.jy, xoisn.j), yoitu.jv. 1 * 1,0 

format ( 3F1 0 , 4 ) 

read riTPj ,icoo ) 

1 T 01. TV , 

2 FMhvM, TIM, SHIN 
FORMAT ( 8F1 0.4) 

CALX TAPLF ' 


FN.S.DI I'J.nOTM, WBAR 1 , wRARF, TF t M , TFOUT, 


4013 
4 n 1 4 
4 n 1 5 
4016 
4 r U7 
4°1 p 

4 n j 0 

4H2n 

4021 

40 ?? 

40?1 

4024 


PM * a LPHS, ALPHT # E<TH, EKF , FT # t F #FSW 1 PI c » F^OTG , F^no # 402 ^ 


40 2* 
4027 
402* 
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WRITE CITP2.1003) 


EN,S|D!IN,00IN,WRAR1,WBARE,TFJN, TFOUT, 4 029 


? TTJUTF; PM, alPhs, ALPHT .EKTH.EKF > ET ,EF,FSV, ELC.EM13 T G,bMPG, 4030 

2 EMOVN. TIN, SHIN 4031 

1 ft nr FOR "'A I < i4XiHNi4XlHS>nx4HDl INllX4HOOINl0X5HWBAR7i0X5HwBXRE1 1V4MTF JN403? 
tl0X5MTF0LT/4lX4MINCHllX4HINCH13X2MPT13X2HFTllX4MINiCMllX4H|MCM/,flF 4033 


2 1 5. 5//1 0X5HTOUTM13X2HPMinx9HALPHSlf'X5HAl_PwU2x3HKTHl 3x?HKFl3y?wET4034 
31 3X2HEF/1 0X5H0EG Rll X4HPS I A36X9WB/HR FT F6X9HB/MR FT F/8F15.5// 4035 

41 >X >Hh5Vl3x2HLtTiy4HW0TGl?X3HWDG10X5HW0V lNl 2 X3H TI M11 X4H5M1N/ mTfr 

52«X2HFT8X7MLBS/MIN8X7MLBS/MlN«X7HLBS/MINl0X5HnEG R/7F15.5// ) 4037 

00 (SOI f TIME" sl.MSETS 4 7 138 

1 NTS = INTSX(ITIME) 4*39 

4040 


00 9 3 BO 1M7TKTS ~ 
TS(I) = XTSUdTIHE) 

OIS( ! )*XfiI5< I, ITIMb) 

9350 Q!T(I): XGIT( I , ITTMF) 

IF(EMOG) 27, 24, 27 
IF(EyOTG) 20 , 25 , 26 
WRITE 



4 

2002 


TITP7V2fW5 

F0RMAT(?6HB0TH HDG AMD MQTG ARE ZERO) 

Tfo nrsnir - — - 

EMO G = FMDTG / (1,0 + SHIM) 

EM0\7NTT ‘E M DTG E^DG - — 

PINSA s PH * FMOVN / (9,06 * EMOG + EMDVN) 

39,51 iALOG [FIW 

4,4,5 
TINS A 

less THAN TOUTM > 


4041 
" 4 T 1 T 7 
4043 
“4 04 T 

4045 

4046 

4047 

4048 

4049 


2 TT 


51 

61 


T t NS A *"'562,0 ♦ 

IF(TIMSA - TOUTM) 

"WRITE ( ITP2.20D2) 

_F0RMAT(6H TINSA.F15.8.16H 
GO TC 600 
FNS = 1.0 

00 61 1 s 1,1 NTS 

TF(TSM)) 28, 51. 51 
T54TIT = 5.83F#0ft * (GISH) 
TS ( I ) s TS4( I ) ## 0.25 


* ALPHS / ALPWT + Q ITC I) ) 


TS( I > ** 4,0 


go~tcTSi 

TS4 ( I ) = 

GO NT t wC'E 
FF = 2,7182818 

WIN s 0.5 * (12 , 0 '* W7TAR1 / TV - 00 IN) 
_W01JT = 0,5 # (12,0 • WB ARE / EN - DOIN') 
W1 s , 166667# T 5. 0 * WIN + WOllT) 
w? = 0.5 • (WIN + WOUT) 

W12 s"0,5~# T“Wi +' «/?) 

_W3 =.166667# (WIN «■ 5.0 * WOtjT ) 
v?73 *'"0,T*«~n32' "+ ¥31 ‘ 

TFi s. 166667# (5,0 # TF I N ♦ TFOUT) 

TF? "a 0.5 # TY'FTN V TFOUT) 

TF l? = 0.5 • (TFI ♦ TF2) 


TF3 s. 166667* (TFIN + 5.0 * TROUT > 
TF23 s 0.5 # (TF2 + TF3) 

TF ( G 5 ) 


4050 " 

4051 
'405? — 

4053 

4054 ' 

4055 

4056 

4057 

4058 

4059 

4060 

4061 
4 ' 06 T 

4063 

4064 ' 

4065 

4066 "■ 
4 n 67 
40 6 R 

4069 

4070 

4071 
4 IT 7 ? 

4073 

4074 

4076 


Tfi7 


13 


137 

STORE = COIN / (WIN + WOUF) 

FlSP = T7TTTF~"270 “ /“ STORE 

F1SP = ATAN (SQRT (ElSP * FlSP - 1,0)) / 2 
FI SP = O’. 6366* (1 , + (l , /STORE * (1.0 - SORT 
F3SP = SGRT (.1 # STORE + 0.0025) / (2.0 # 

STORE 


T8 
(WIN 

770 r 


4076 

4077 
4 OTP 
4079 


T (3.9 # STORE + 
E4SP = SGRT ( ,4 
1 (3.6 * STORE + 


■ 37803 ) 7 ( 2.0 * 

# STORE + 0.04) / (?,0 # STORF 
3.24) / (2,0 * STORE + 3.61 ‘ 


0 

d.O + STORE)) 

STORF ♦ 0,1) + SORT 
3.9) 


4 0 H 1 


+ FI Sp) ) 


+ 0,4) + SORT 


40*5 
TTOT 
4065 
4 08 6- 


FIGURE 17$ (cont'd) 
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P5S® = SGRT (0,9 * STORE + 0,2025) / (2.0 * STORE + 0,9) + SORT 4087 

TT3 . 1 ' * 'ST5RE "+ 2. 403 T~m .'0 * "STORE' + 3,1 >“ 4TTB 8 

F6SP = SGRT (1,6 * STORE + 0,64) / (2,0 * STORE + 1,6) + SORT 4089 

1 (2.4 # STORE + 1.44) / (2,0 * STORE + 2,4) - "4090 

16 TE(05-1.0) ?1.17 ,21 4091 

1 7 T P ( 73 ) 18 , 22, 1« ~ 4092 

IP STORE = COIN / WIN' 4093 

P'fSP = 0.3183 » ( ATAN (1.0 + 4,0 / STORE) + 0.2146) 4094 

P3SP = (0,05 * STORE + 0,0025) / (0.005 + 0,1 » STORE +STORF«STORF4095 

1 ) + (1,95 * STORE + 3.803 ) / (7,606 + 3,9 * STORE + STnRE*STORE ) 4096 

R4SP = (0.2 * STORE + 0.04) / (0,08 + 0.4 * STORE + STORE » ST0RE)4097 

1 + (1.8 * STORE + 3,24) / (6,48 + 3.6 # STORE + STORE * STORE) 4098 

E5SP = (0,45 * STORE + 0,2025) / (0,405 + 0,9 * STO»E + STORE*STORF_ ) 4099 

i + (1.55* STORE + 2,403) / ( 4 , 806 + 3 . 1*STORE + STORE*STORE ) 4100 

P6SP = (0.8 * STORE + 0.64 ) / ( 1 ,28 + 1.6*ST0RE + STORF*STORE ) 4101 

1 + (1.2* STORE + 1,44) / (2,88 + 2,4«ST0RE + ST0RE*ST0RF ) 41.02 

21 T E( 05-2 . 0 ) 64, 72 , 64 4103 

22 Pi SP = 1.0 4108 

E3SP = 1.0 4105 

P4SP = 1.0 "" 4106 

E5SP = 1.0 4107 

F6SP = 1.0 4108 

64 no 65 1=1 . 1 5ITS 41 09 

65 AMOT(l) s (FmOG + E^DVN ) / ( (E Nj * ENS) 4110 

IOP * 0 4111 

77 00 8"9 I =1,1 NITS 4112 

4 M f ) G ( I ) r AMDT(l) * EMOG / ( EMOG + EM0VN5 4113 

AMVKI) = A m 0T ( I ) - AM0G(!) 4114 

FRM = ( 776.0 * Avr)G(I) + 85.6 * AMV'Kt) ) / 4115 

1 ( AMOG ( I ) + A H V/ 1 ( I ) ) 4116 

PROM's 144,0 * PM / (TIN *FRM) 4117 

FVMr 3,06“ * ( AMOG ( I ) + A M V I ( I ) ) / (FROM * 4118 

1 0 1 I N * 0 II N ) 4110 

SOW = 6.72 * SORT ( EPM* TIN) ’ 4120 

IE(FVM-FSV*SOV/V) 89,89,99 4121 

90 WRITE (1TP2.2001) 4122 

2001 PORMAT(/l«H MACH VO, TOO HIGH /) 4123 

GO TO 601 41 24 

89 CONTINUE 41 ?5 

DO 4 Q n MUMSR = 1 , I NTS 4<26 

PRM = ( 776.0 * AMnr,< N'JMQR ) + 65.6 * AMVI(NUMWR)) / 4127 

1 ( AMDG ( MiMBR ) + AMVI(NUMRR)) 4128 

FR0 M = 144,0 * PM / (TIN *FRM) 412° 

F\/M = 3.06 * ( AMDG( NUMPR ) + AMV I ( NUMRR ) ) / (FROM * 4130 

1 0 I I \ * 0 I I N ) 4131 

IP(N't;MBR-l ) 92,02.90 41 32 

9" IF(TS(MIMRR)-TS<WIIMRR-1 ))92,91,92 41 33 

91 I sNI 'MRR-l 4,34 

TO!l(M)MPfi)sTOli< I) 4135 

"QTS( N 1 IT'PR ) sOTS( I ) 4136 

QFS(MIMRG)=OES( ! ) 4 1 3 7 

AMvE(MuMBR)=AMvE( I) 4138 

OPTOT( MIMRR )sOPTOT( T ) 4139 

PM||F ( NI.MRR ) =ENljF ( I ) 4140 

GO T04OP 4141 

92 l LOOP = 0 414? 

00 101 I = 1,21 4143 

A I = I 4144 

FIGURE D-8 (cont’d) 
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T ( I ) a TIN'S* - 3,0 < 

TOT > 8 TTTT * Tin 
I FT TS(NUKBR)-TINSA) 
T 0 OTMTFFRT " V “ T1 N 
TSTORM) a TIKIS* 
tSTOR<2> « TINS* 
TSTOR ( 3 ) a TIKIS* 


F^DVf 2 ) a AMVI(KIUMBR) 


*MVF(K!L'MRR) j 
OTS( NiTMRR ) “a 
QFS(M)KRR) a 


AMV I ( NUMRR ) 

0,0 

0,0 


00 TO 105 

RFTA1 s 1,0 ♦0.45 » ( 
RET *2 s 2,22 * RETA1 - 

1 NTVXS a" 1 

RTOR(l > a BET*2 *A m DG(M 
TRF'T.15 TN'THE NEXT F 
STOR(2)al,l5 • AMOG (NU 
ST0RI3) a DIIM * FLC * 
STOR{ 4 ) a ( DO I N*OP I N - 
"S1W5 T -a - ITSOTN - D T I N 
ST0RC6) a 1.495F-10 * 
STOP! 7) a TF i • FLC * 
J5TOR(*) a 0 • 238E-10 * 
RT0R(9) a W12 * TF12 * 
STORE a Z2 * C2 * fcF * 


RTOR(P) a' W12 * TF] 
STORE a Z2 * C2 * fc 
STOP <T0 > a STORE * l£f> 
ST0RM1) * STORE * (Cfi 
STORM 2) a STORE * (C* 
ST0RM3) a STORF * <C6 
‘ ST0PTT4) - * TF? * FLO * 
ST0RM5) a W?3 « TF23 
STORM 6 ) a TF3 « ELC * 
CNSTM ) = 60 • 0»ST0R( 1 > 
CMST{?) a TS4TNUM«R) * 
C^ST(3) a TS4< NUMRR) * 
CNgT ( 4 ) a TS4 ( NUMRR ) * 
CMST(S) a TS4 ( NUK'RR ) * 
“CMST ( 61' a TS4( NUMRR) * 
C M ST ( 7 ) a TS4( NUMRR) * 

TH5T(m V 0.17 

CK'ST(9) a CK'ST(2> 

CM ST MOV a CNST ( 3 ) 

CMST ( 1 1 ) a CMST(4) 


C.MST ( 1 3 ) a CNST { 6 ) 
XMSTC14 r? CNS T ( 7 ) 
CMST ( 1 5 ) a 0,0 
TMSTCTSTT XKTST( ?r 
CMST ( 1 7 ) a CMST<3) 
CNST MBT= “CK'STI 4 ) 
CMST ( 1 9 ) a CNST ( 5 ) 
CMS I (20 ) ~ s CNS T ( ft ) 
CNST ( 21 ) a CNST ( 7 ) 
J55 a ‘0 “ 


TIN - TINS*) / (TINS* - 625.0) 

1.22 

|JMRR)*3,42 ♦ *MVI(NUMRR)#BETA1 
Q . IS THE CORR, TO' THE THFORET, HT, 
MRR )*1 06200, /PM#*i ,H2 
1 .394 /C 0.024 +( OOTN ' - 7511*) /EKTH) 
Oil N*0 ! I N )« EKTH / ELC 
) « FKTW « FLC / TOOTH ♦ 01 TNT " 

FI SR * Z3 * C7 * 00IN • ELC * ET 
FKF / wl 

Z4 * C5 * EF * 00 1 M * ELC 
FkF / ELC 
FlC * W1 

♦ F3SP) * 0.95F-11 - — 

♦ F4SP) * 1 ,9t-U 

+ F5SP) * 2.R5F-H 
+ F6RP) * 3, RE-11 
FKF / W2 

* EKF / ELC 
FKF / W’3 

♦ TINS* + RTOR<2)*FE*«K . 0237* ( T I NS*- 
ST n R( 6 ) ' 

STORtfl ) 

STORfiO) 

STORIll ) 

STORM?) - 

STORM3) 


LOSS EO, 


460.0 ) ) 


41 4 S 
4147 


'W 

4166 
4T67 
4 1 6 * 
4 T 69 '~ 

4170 

4171 
417? 


41 74 
4T7S 
41 76 
4 1 77 
4 1 7 P 
417R 
4160 

4 "f ay 

41 H? 
41 53' 
4164 
41 R5‘ 
4166 
41^7 
41 6P 
41 RR 
4190 


4196 
4177 
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FIGUBE D-8 (cont'd) 
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1 np CONTINUE 


420 ? 


mr^Tnrr-'i'TTTi " - 

on ?p8 J S 1,?2 4204 

?"8 OEPIVf'J.I) = 0,0 4205 

PERTv(l.l) *-30 . 0 *ST OR ( 1 ) - STOR ( 2 ) *&F* * ( . 01 1 «5* ( T ( i ) + T < 8 ) -9?P , ) ) 4206 
1 * .011*5 - Cl * STORC3) - C3 * STQRC3) / 2.0 4207 


0FRTVC2.1) * Cl « ST0RC3) 4208 

DERIVC3,1) = C3 * ST0P(3) / 2.0 4200 

OFRIvCB.l) *-30.0*STOR(l) - STOR ( 7 ) *fcF** ( . 01 1 «5* ( T C 1 ) +T C fl ) -9?0 . )) 4?1P 
1 * .01185 ~ 421 1 

OFRIV(l,2) * Cl * STOR ( 3 ) 4212 

OFR I V C 2 , 2 ) * - Cl * STOR C 3 ) - ,Pl09 * Cl * STOR(4) - 1.7 * C? * 4213 

1 STPRC5) - 4,0 * STORC 6 ) • T3C2) 4214 

OPR I V ( 3 • 2 ) * 1.7 * C2 # STOR<5> 421=; 

OFR ! V C 9 , 2 ) * .0109 * Cl * ST0RC41 4216 

OFRIV/d.35 = C3 * ST OR ( 3 ) / 4,0 4217 

OFR I V ( 2 . 3 1 s 0,85 * C2 * STOR < 5 ) 4218 

OFR T V ( 10 . 3 ) 8 .002722 * C'3 * ST0R(4> 421.9 

D F R I V ( 4 , 3 ) - 0.67 * ST0R( 7 ) 4220 

OFR f V ( 3 . 3 1 = -DERTVd.3) -OER! V( 10 , 3 ) - DFRIVC2.3) - OFRIVC4.3) 4221 

1 - 4,0 * STOR ( 8 ) * T3<3> 4222 

OFR l V ( 3 . 4 1 = HER I v< 4, 3) 4223 

OFRTV(11»4)= ,002085 * STORC9) 4224 

OPR IV? 5,4 ) = 2.2? * STOR < 7 1 4225 

OFRTVC4.4) = -DF.R I V ( 3 » 4 ) -DFRl\/(ll,4) -OFRIVC5.4) -4,0*STOR(1P) * 4226 

1 T 3 (4 ) 4227 

OERIVC 4,5) = DER I V( 5 » 4 ) 4??8 

OFR I V ( 1? , 5 ) s ,00417 * STOR ( 9 ) 4229 

OFR I V ( 6 » 5 ) = 1,334 * STORC7) 4230 

OFR T V C 5 , 5 ) = -DFR I V ( 4 » 5 ) -0F.R 1 V d? , 5 ) - QPR I V C 6 , 5 ) -4 . 0*STOO (1 II * 4231 

1 T3(5> 4232 

OFRn/(5.6) = HER I V ( 6 , 5 ) 4233 

OPRTVd3,6)s ,00624 * ST0R(9) 4234 

OFR I v (7. 6) = , 95,2 * STOR (7) 4 23* 

OFR I V ( 6 . 6 1 = -DFRIVC5.6) -DFRIVC13.6) - 0PRIV<7,6) - 4.P *STpR ( 1 2 1 4236 
1 * T3(6) 4237 

OFRTV(6.7) = DER I V ( 7 » 6 ) 4?3P 

OFRT VT'l 4,7)* ,00034 * STPRC9) 4239 

OFR I V ( 7 . 7 ) * -DER I V ( 6 , 7 ) -DER!V(14,7> - 4,0 * ST0RC13) * T 3 ( 7 ) 4?4" 

OFRTVCl.B) * 30. * STORCl ) ST0RC2) * FE* * C , 01 1 85* ( T d 1 + TCP) - 4741 

1 9?0.)) * ,01185 4747 

0FRTVC9.8) = OERIVC?,!) 4743 

OER! V (IP, 8)* OERIVC 3, 11 4744 

OFRTVC8,*) =-10. * STORCl) + STOR C 2 ) *EF * * ( ,01 l * 5 * ( T C 1 )+TC8)-9?n, 14745 
1 ) * .01185 - STORC 2 )*EF**( ,0O790*C7 , 0#TC P )+T« 21 )-1 380 . ) ) *, 00790 4746 

7 -DFRIVC9.8) -DFR I V ( 1 0 , 8 ) 4?47 

OFR I V C 21 » 8 ) s-20, * STORCl ) - ST0R(?)*FF#*( , 0 0 7 9 0 #(2.*T( 8 ) + 4748 

1 T(2lT -1380, ) ) * ,00790 4749 

OFR I V C 8 . 9 ) = OERI VC2, 1 ) 4750 

TTFR I V r? , 9 ) = OERIVC 9,?) 4751 

0 F R T V C 15,9)= OERIVC?, 9) 425? 

OFr I v ( 10 » 9 ) = OERIVC 3,2) 4253 

OFR I V C 9 , 9 1 = -DFR I V C 8 , 9 ) -nFRlV(2.9) - 0F.RIVd5.9> - nFRlV(10,9 ) 4254 

1 - 4 .O * STORC6) * T3C95 4255 

OFHlvCS.lO) = DFRlVf3.ll / 2,0 4256 

OFRIVC3.10) = DFRTVC10.3) 4257 

DFR I V C 1 6 , 1 0 ) * DERIVC3.10) 4?5« 

OFR I VC 9, IP) = DER TV C 2,3) ~ 4259 


FIGURE D-8 ( cont ’d) 
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0ERIV<11.10)= 6,67 « ST0R<14) 4260 

DFRIVlifl.10>« -DfcR]V(W,fO-y— -DERIV(3»lflr-“'OE*7TVnA,in5 - DFRTVI 9 , tf?5I 

1 10) - DER I V( 1 1 , 10 ) - 4.0 * STOR(fl) * T3<10) 4262 

~ DFRI V l IF.TITs- DFR TVlftilOT " T7W5 

0FRTV(4,11) 9 DERI V ( 1 1 , 4 ) 4264 

DEH I v < 1 7 , 1 1 ) » , OOPOR5' *~SrnjRTr51 47F5 

OER!V(1.2,ll)« 2.22 * ST0R< 14 ) 4266 

DERI Vdl.iir = -DERI V (Tnrrn - **T3ERlvn , 1TT~-DER IV( T7 , 11 T = DER TVTT77 ”4257- 

1 11) - 4,0 * STORt 10 ) • T3( 11 ) 4268 

otRivi ii»i 2 r • - upnvn27Trj'"” “ ' 4759 

DER!V< 13, 12) = 1,334 « ST0R(14) 4270 

DERI V ("5 » 171 s DFRTVTY275T” * 4277 

DERI V (18,12) = .00417 * STOR(lb) 427? 

DER I V f 1 2 ,T2T ir-OFRmTT TTTT ~ UERTVt 13' . I?) -DERTVT57 T7T~ 477T 

1 DFR I V( 1 8 , 12 ) - 4,0 • STOR(ll) « T3<12) 4274 

PERI V (12.13) = DERIV(13,1?) ' — 4275 

DER I V ( 1 4 , 13 ) = .952 * S TQR( 14 ) 4276 

DERTVf 6.13) = ,00624 # STnRt9) ~ 4277 

DER IV(l9,13)s ,00624 * STOR(l5) 427 = 

■" DER TVT 1 3", 1 3 ) * -DERI Vt 1 2 • 13 ) - DERI V( 14, 13) - DFR3 VC 6 ,15V - 4279 

1 DER IV(19«l3) - 4,0 * STORI12) * T3<13) 4280 

PER TV f 13,14) = DFRIV(14,13) * ~ 4201 

DER IV(7,14) s DERI V( 14 , 7 ) 4202 

OERT V C 20,14) = .00634 * STDR(15) * 4283 

DER IW14.14) = -DERI V< 13, 14 ) -DERIV(7,14) -DER I V < 20 , 1 4 ) - 4284 

! 4.0 * RTDRU3) * T3C14) 4205 

DER IVf 15,15) = DER I V( 2,1 ) 4266 

DPRIv(1E,i5) = DFRIV(3,1 ) 4287 

HER ! V ( 8 , 1 5 ) r 40, * STOR(1) * ST0R(2> # EF*«(. 00790 *<2.0*T(8) ♦ 4288 

1 T ( 21 )-l380, ))*. 00790 - 4289 

2 DERIV(15,l5)/3.0 - DERlV(l6,15)/3,0 429D 

DFRT\/{71 .15) =-40, 0 * STORM) + STnR(2) * FF **( ,n079n«(7,n # T ( 8) 4291 


1 + T( 21 ) -1380,)) * .00790 - 

2 RTORT2 ) * EE*#T,0237 *( Tt 21 ) -460 .))*. 0237 

3 - 2.0 / 3.0 * ( DER I V ( 15 , 15 ) + DERIV(16,15) ) 

DE«!v(fi,l6> 's' DERTVI 2, 1 ) / 3.0 

DERIV( 21.16)= 2,0 • DERIV(8,16) 

DFR TV (9,16) = DFRIVC9V?) 

DER IVM6.16) = DER I V ( 3 , 2 ) 

DERI V( 1571 6 ) =-DERIV(2,l) - DERrV(16,16) -DFRIV<9,16> - 
1 4.0 * STOR ( 6 ) * T3(15) 

DERTVT8.T73 = DERIV(3.1V / 6.0 
DEHIV(21.1 7)= DFPI V ( 8 , 17 ) * ?.Q 
TTETTn/TJ nv 17 7= DFR I VT 1 0 , 3 1 
DFR!v(15.17)= DFR I V ( 2 # 3 ) 

DPR | v( 17,17) = 6,67 • ST OR f 1 6 ) 

P ER I V ( 16 » 1 7 ) = -OER 1 V ( 8 , 17 ) # 3.0 -PER I V ( 1 0 , 1 7 ) - DFR I V< 15 , 1 7 ) 

1 '-OF R I V ( 1 7 , 1 7 ) - 47'fT* STORTfl rfTJTIFJ 

DFRIVM6.18) s DERIV(17,l7) 

PFR|v(18,18) = 2,22 * ST 0 R( 16 ) 

OFfTH/Fl 77181 ' =‘ -DFRTVT1 67T81 -DFRTVM77 ITU" -UERTVTT8718T"- 

1 4.0 * STOR (10) * T 3 ( 1 7 ) 

DERI V ( 1 7, 1 9 ) = D£P) V( 18 , i8 ) 

PFR I V/ (19, 19) = 1,334 * STPRM6) 

PTnrn/TT77T91 =~ ue^ttttfttti 

PER I V ( 18 , 19 ) s -DER I V ( 1 7 , 1 9 ) -DER I V( 19 , 1 9 ) -DFR I V < 1? , 1 9 ) - 
1 470 * STOR ( 1 1 ) * T3( 1 8 ) 
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429* 

4297 
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4299 
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FIGURE D-8 (cont’d) 
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0ER!V<18,20) s DERI V( 19,19) 4318 

"HTFCITV ( 20 . 70 ,~¥5Z STAR n 6) " 4Ti<5 

OFR t V ( 13 . 20 ) * DEP I V( 19 * 13 ) 4320 

HFRTV( 19,20) * -DERIVMP.20 ) -DERT V( 20 , 20 ) -DER T V( 13 , 20 ) - 4321 

1 4,0 * STOR ( 12 ) * T3( 1 9 ) 432? 

HER ! V( 1 9 , 21 ) s DERI V( 20 » 20 ) 432^ 

OFR ! V ( 1 4 , 21 ) » nERIV(?0.l4 ) 4324 

OFRTVr?n.?l) = -DERTVfl9,?l) -DERTV( 14 ,21 ) - 4,0 * STOR ( 13 ) *T3 C 20 5 4 325 
OFR ! V ( ?? , 1 ) s CNRT(l) + 30, • ST0R(l) * < -T ( 1 ) -T ( 8 ) ) - STOR<2) * 4326 

? EE ** (.01185 • <T<1> + T < « ) - 9?0.)5 -ST0P<3) « ( Cl * 1 T ( 1 ) -T< 2 )) 4327 

? ♦ C3 / 2.0 * < T ( 1 > - T(J))) 432* 

OFR I V ( 22. 2 ) « Cl«PTOR( 3 )#( T( l )-T( 2 ) 1 - 0,0109 * Cl * STORM) * 4329 

1 ( T( 2 ) -T( 9 ) 5 - 1,7 * C2 * ST OP ( 5 ) * <T(2)-T(3)) - STORM) * T3(?> 4330 
TT2 ) + CNST ( ? ) 4 331 

OER ! V ( 22. 3 ) s CNST ( 3 ) + C3 * STOR(3) / 4,0 * <T(1> - T(3)) 433? 

1 - .0027?? * 03 * STORM) « (T(3) - T(10>) + 0,«5 * C? * ST0R(5) 4333 
? * ( T ( ? ) - T( 3 ) ) - 8,67 * STOR < 7 ) * (T<3) - T(4)) - STORM) * 4334 

3 T3<3) * T ( 3 ) 4335 

J)ER!V(?2,4) s CNST ( 4 ) + 6,67 * STORM) # <T(3)-T( 4)) -.002085 * 4336 

1 STAR (93 * fT(4)-T(ll)) -?,22 * ST0R(7) «(T(4)-T(5)) - STOR(M)» 4337 
? T3 ( 4 ) * T ( 4 ) 433 P 

OFR ! V ( 22, 5 ) S CMST(5) + 2.2? * STORM) * (TM)-T(5)) -.00417 * 4339 

1 STOR( 9 ) * ( T( 5 )-T( 1 2 ) ) -1 ,334#STOR( 7 ) * (T(5)-T(6)) - STOR(ll) 4340 

? * T3( 5 ) * T ( 5 ) 4141 

OFR ! V ( 2? » 6 ) s CNST ( 6 ) + ST0»(7)* (1.334 #<T<5)-T<6)> -.95? * 434? 

1 ( T (“ST - T(7))) -.00624 * ST0R(9) * (T(6)- T ( 1 3 ) ) -STOP ( 1 2 1 * 4343 

2 T3( 6 ) • T( 6 ) 4344 

OFR f V ( ??, 7 ) s CNST ( 7 ) + .95? * STORM) * (T(6)-T(7))- .00*34 # 434* 

1 STOR ( 9 ) * (T(7)-T(14) ) - ST0R(13) * T3(7> * T ( 7 ) 4346 

OERTV( 22,8 ) a CNST(fl) 4- 10, * STOR(i) * (3.* T(l) - ?,#T(71) 4347 

1 -T ( 8 ) ) + ST0R(?)*bF**( ,011«5*(T(1 ) + T ( 8 ) -920 . ) ) -STOP ( ? ) *EF** 434P 

2’ ( ,O0790*(2.*T(R)+T(?l ) -13*0.))- STOP C 3 ) « ( Cl » ( T( * 1 -T( 93 ) + 414® 

3 C3 /?, * C T ( « ) - T ( 1 0 ) ) ) 4350 

OFR TV ( 2? . 9 ) = CNST ( 9 ) + Cl *STOR ( 3 ) * ( T ( fl ) -T ( 9 ) ) + , 01 P9*C1 *STOR ( 4 ) 4351 

1 *<T(2) -2 . *T ( 9 ) + T ( 1 5 ) ) -1 , 7#C2*ST0R( 5 )*( T( 9 )-J( 10 ) ) -STORM) 435? 

? * T3( 9 ) * T( 9 ) 4353 

OER?V(??,10> * C3 /4,0 * STOR ( 3 ) * < T ( ft ) - T(lO)> +,00?72? * C3 * 4154 

1 START 4) * ( T ( 3 ) - ?, * T ( 1 0 ) + T(16)) + ,R5 * C2 * ST0P(5) * 435* 

? ( T(9 )-T(10) )-6.67«ST0R( 14 )*( T( i o )-T( 1 1 ) )-STOR( 8 )*T3( 1 n 1*T( 1 0 ) + 4356 

3 CNST ( 10 ) 4157 

OFR iv ( ?2, 1 1 ) = CNST (11) + 6,67 * STOR(l4) * (T(lO)-T(ll)) +,00?n854i5P 
1 * STOR ( 9 ) * (T(4)-T(lin -.002085 * STOR ( 1 5 ) * ( T ( 1 1 5 -T ( 1 7 )) - 2.224359 

? * STOR (14)* (T(ll )-T()?) ) - STHR(in) * T3 ( 1 1 ) * T ( 1 1 1 4360 

0FRTV(2?.r?) * CNST (12) + 2.2? * ST0R(14) * ( T( 1 1 ) -T ( 1 ? ) ) - 1.334 4161 
1 * STOR(l.4)» ( T(l?)-T( 13) ) + . 0041 7 * STOP ( 9 ) # <T(5)-T(1?)) 436? 

? - STOR(ll) » T3( 1 2 )*T( 1? ) - , OQ417*STOR( 1 5 ) * ( T ( 1 2 ) -T ( 1 8 ) ) 4361 

OFR I V ( 2?. 1 3 ) = 1,334 * S TOR (14) * ( T ( 1 2 ) -T ( 1 3 ) ) -.952 * ST0R(14) 4164 

1 * ( T( 13)-T( 1 4 ) ) +,006?4 * STORM) * (T(6)-TC! 3)) -.00624 * 4365 

? STOR ( 15 ) • ( T( 1 3 ) - T ( 1 9 ) ) - STOR ( 1 2 ) * T 3 < 1 3 ) * T < 1 3 ) + CnST<13)43«>6 
~OFR I V (72 <1 4 ) = CNST ( 14) + ,95? * ST0H(14) * ( T ( 1 3 ) -T ( 1 4 )) + , 00*34 4167 

1 * STOR ( 9 ) * (T(7)-T(14) ) -.00834 * STORMS) * ( T ( 1 4 ) -T ( 20 ) ) 416* 

? - ST°R ( 1 3 ) # T3( 1 4 ) # T ( 1 4 ) 4369 

OFR I V ( ?? » 1 5 ) s STOR(l) * 4Q.0 * (T(8) - T(21.) ) + STQR ( ? ) * 4370 

1 EF*#(, 00790 * ( 2 • # T( 8 ) + T(21) - 1 38 0 . ) ) -STOR ( 2 ) * FF ** ( , 0237* 4371 

? (T(?1) -460,))- Cl * STOR ( 3 ) / 3.0 * C2.*T(?1) +T(«)- 437? 

3 3 , o*T( 1 5 ) ) - C3 * STOR ( 3 ) / 6,0 * (2.*T(?1) + T ( 8 ) -3 , *T ( 1 16 5 ) 4171 

OER I V ( 2? » 1 6 ) = CNST(16) + Cl * STORM) / 3 , 0 * ( 2 . #T ( 21 ) +T < 8 ) -3 . * 4174 

i T ( 1 5 ) ) +.0109 * Cl # ST0R( 4“) * ( T ( 9 1 - T < 1 5 ) ) -1,7 * C? • STORM) 4375 
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2 • (T(15)-T< 16) ) 
" I V < 2? » 17 > 


- ST0RC6) 
CNSTTjry 


1 - 3 . • T ( 1 6 ) > 
~7 * STOH( 5“T * 
3 - ST0R<8) * 


+T7 

C3 • 


T3C 15 ) • T( 15 ) 
—STORfT) 


*,0027 22 • . 

T ( 16 ) * T3<16) 


712, * ( 2 , *T( 21 > 

STORU) * (T(10)«T(16)) + .85 » 

- TYS'7 "STORM 6) * C TC 16 >-T( 17 J > 


♦T(B 
C 2 


4376 
5 4T77" 

4378 

4379 
43ftn 
43JT~ 
438? 

—fvr*,' 


— DER lVtZ?»iS) » CNST(IB) * 6,67 • ST OR (TET - * TT 116) - T(17)J 

1 +.002085 « ST0P<15)# (Till) - T C 1 7 ) ) - 2.2? • < T< 17 >-T< 1* ) > 

? - ST Aft 1 1 P > T3( 4 7 T* T « T7T 

HER l VC 22 . 19 ) s CNSTC19) + 2,22 * ST0RC16) * < TC 17 )-T( 1 8 ) ) 

1 • STAR ( 16 ) ■-»- TT< 1 8 )-T( 19 ) ) +.00417* STUKM53 ”• rn I27-TC 

2 - STORC 1 1 ) * T3M8) * TC18) 

OERT VT 2? » 20 5 * CK1RT« 2^1 “ + -1,-334 * ST0R(T6r * 

3 * ST0RC16) * ( T< 19 ) - TC20)) +.00694 * ST0RC15) * ( T< 13 >-T( 19 ) ) 
T3TT9T 

* ST0R(16) * (T(19)-T<?p) ) -.00834 439n 


-1.334 
Tim — 


Trrrm — 

CNSTC21) + .95? 


104 


?nn 

”2003 

?nt 


?0 7 
205 


2 - STORC 1 ?) i” 

OFR ! V ( 2? , ?1 ) = 

T * STORM 5) * { T ( 1 4 ) -T ( 20 ) )-STQR M 3 ) *T3( 20 >*TC 20 ) 

no 104 1 = 1,21 

OER ! V ( 22 . I ) = -nF»lV(?2.n 

CALL CROLT 

GO TCT 201 , 700-3 , IK, nxs “ ' 

WRITE CITP 2 . 2003 ) 

“ F“OR M AT(/ 33 H 20 C.vri.ES--^ATRI * 1NOT CONVERGED / J 

GO TC 601 
' STORE sTT.O " 

00 203 I = 1,21 

-rm-s TC 7 T + DELTA C l 1 

T 3 C T) = TCI) * TCI)* T<I) 

c DELTA < n ) -STORE) 203. 203. 205 
: A F* S (DELTA! I ) ) 


4384 

4385 

4386 


4388 

4^89 


203 


»C( AgC 
STORE s 
“CONTI NLE” 

I E ( STORE-3 



S3 

\> H* 

... ... 

4393 

4394 

' 439*5 


4396 


4)97 

4398 


4 390 “■“* 

4 4 C P 

wni 


440? 

4403 


440 4 


0) 206. 206, 100 


RETIC = 1,0 + 0.45 * (TIN - T I NR A ) / (TINSA - TOljCNHMWR)) 

1 ETA BIT ( (PETIC - BETAl) / BETTC 5 -. 05 ) 103 , 103 , 102 ” 

102 RRtai = p F TIC 

! LOOP” a ‘ j LOOP + 3 
I F ( I LOOP => 6 ) 62, 103, 103 
T03 STORE = TTTUTNUMPR ) ” 

GTSCMJNBR) = ( 3 . 4 ?*PETA?*AMDG(NUMBR)+RETA 1 *AMVI(NUMRR ) )*60 
1 *( ffN SI -STORE ) + STORC?) * FN/S - 

2 * ( E E*»( 0 . 0 2 3 7 » ( T I N S A - 4 6 0 . ) ) -EE** C 0 . 0237 * C STORE - 46 n.)) 
OF$( KUKRR Tiff, 
no 6100 J= 1 , 3 

no "TiTO" T*“4 77 

I RUR * 7* ( vj-1 ) + I 

61 no OFSrNWFPrri"OFS( NURBP 5 +ST 0 R n +6 ) * (T 3 ( 1 RUB ) *T { I SUB ) - 
1 TR 4 ( NljypR ) ) * 2 . « FN/S 


, *EM/S 
) 


4 a no 
4 407 
4 4 0 0 

AAT^-q 
44ir 
441 1 

4412 

4413 

4414 

441.0 


105 

in? 


TstorCi ) = T ( 1 ) 
TSTORC2) = T ( 8 ) 
IS) OWC 3) = 


no 1 61 

“AT T 


I = 


0,667 

1,3 

* T”“ 


+-TTV3T3 » TtKI 


4419 

4420 
44?! 
4422 


IFCILOOP) 106,107.107 

PSAC1T =“ 6,65«E-07*FE**(0,02531 * TSTORC I ) ) 
EMD\/(J> s 9.06 » AN'OGCNUMBR ) / (PM / PSA(J) - 

- TINSA) 7 6.0 
85,6 * EMDVC J ) ) 


1 . 0 ) 


4 477 
4424 
4 4 25 
44?8 


TO? T SMC I ) 

_RN( I ) s (778, 

1 EMDvcrn 


TSTOR(I) + A I ITTTTT 
* A^DG(NUMBR) ♦ 


/ ( AMOGCNUMBR) + 


44?7 

4420 

4 429” 
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ROM(I) s 144,0 * PM / <RM(I) # TSH(!)) 4430 

WnT"i~37iTS"'*"'T AWC1 NOMBWf + BMDV( I ) ) / (ff (IMT! ) IT W»13TTNT" ** * 4434 

RF<?> b U.fiE + 06 * R0M<!) # VM( J ) * D 1 1 N / (TSH(I) + 315.) 443? 

WFFM) s ,11 • VM(I) » SQ»T (R0M( U )*( AMVT(NUMBR)-E w OVCn T / HUM 4433 

RF(t> s ? , 83E + 04 •( AMVI <MIMBR)-EMDV( I) )/( (6«3,-TST0R( ! ) 4434 

TF(REO) - ?000.) 153 » 153, 154 4435 

153 FR ( M 8 64,0 / RF( I ) 4435 

0,0 TO 157 4437 

154 I F ( RE ( I ) •> 4000.) 155, 155, 156 443* 

155 FRU) b 0,00277 * WF (!) ** (,3225 4439 

0,0 TO 1 57 4 440 

156 FR(!) B 0.316 / RF ( ! ) *• (,?5) 4441 

157 I F ( RF ( ! ) - 200.) 150, 158, 160 444? 

158 ' TTf BEF( 15 - 3 .5 159, 159. 160 4443 

159 5T0RE s ( AMV I ( NUMRR ) - EMDV<I) ) * (683, - TSTOR(I)) * 4444 

1 R0 M ( ! ) / (FRM) * REUi *(FMDV( I) + AMDG(MUMRR))*( TSM( I )+315,0) ) 444P 

OR(!) * 12.93 * SORT (STORE) 4446 

t F ( RE ( ! ) - 2000.) 159?, 159?, 1594 4447 

159? STOPE s 1,0 + DR ( ! > 4448 

PMH ! ) = STORE*STORF#STORF#STORF 4440 

00 TO 161 4450 

1594 PHKI) = (0.5 + SORT (0,25 + Off ( T ) ) > ** 4,75 4451 

GO TO 161 445? 

160 PM Id 5 = ( AMOT(NJUHBR) / ( 4MOC,(MUMPR) + Ewrvd))) ** 0.75 4451 

161 CONTINlF 4454 

HOC *0.0 4455 

00 1 6? ! = 1 , 3 4456 

162 OPC B npc +P U I ( I ) *FR ( I )*R0 M ( T )*VM( T ) *V W ( T ) 4457 

OPO = 4.31E-04 * FLO, * OPO / 01 TM 4*5* 

!F(R.OOP) ?! 1,21 0,210 4 459 

210 PSE « 6.658E-07 * FE ** (0.02531 * TOLKMIMBR)) 44 fr r, 

~ IMVFfML'MFR) s 9,06 * A VP G ( \IUMPR ) / ( Pm / pgp - 1 , n ) 4**i 

211 OPEN'T S 1 , 0RE-04 » FROM * t V/M * E VM 446? 

OTHA = 0.5 • 01 Jn. « SORT (EM / (Z1 * 5 )) 4 467 

OF HA = OJMA 4464 

RFIMA S 1 1 . ft E + 0 6 * FROM * DIHa * EVM / (TIM + 315.) 4465 

I F ( RF I MA = 4000.) 222, 221, ??1 4466 

221 i)P I H * 1.O25E-04 * FROM • EVM * EVM • W B A R 1 / (S * OIHA • 71 4467 

1 * RFIHA ** 0.25 ) 4468 

00 TO ?? = 4469 

??? ! F ( RE I H A - 2000.) 223, ?25, ??4 447n 

273 DP I H = ? , OftF-02 * EROM * PyM * EVM * wPARl / (S * 0 1 H A * 21 4471 

1 * RFIHA) 447? 

GO TO ??5 4473 

??4 OP I H = 0.P99E-06 * FROM • EVM * EVM * W B A R 1 * REIhA #* 0,3?2 / 4474 

1 ( S * CINA « Zi ) 4475 

2?5 RMF. b(AMDG(MUMBR)*776 .+AMVE(MUMBR)*85.6)/( AMDG(MIJMBR>+ 4476 

1 A M\/F (Ki IMP r 5 ) 4477 

J50MF b^ 14 4, • PM / (RME » TO(J ( NUMRR ) ) 447P 

VMEs3,n5 *( AMDG<NUMBR)+AMvE(MUMBR) )/(ROMF#D l I N*D I IM) 4479 

RFF.HA s n.ftE + 06 * ROME * DEHA * VME / ( T0U( M1MPR ) + 3l5 , 0 ) 4480 

I F ( REF M A - 4000.) 22ft , ?27, ??7 4 4 B 1 

??7 OPEH s 1.P25E-04 * RQ M E * VME # V M E * WPARE / (S * O&ha « Zl * 448? 

1 RFFHA ** ,25 ) 4483 

GO TO 231 4464 

??ft I F ( RfcFHA - 2000.) 229, 229, ?3 q 44ft5 

229 DPFH = ? . PftE-02 * ROMF * VME * VME • wBARF / (S * DFMA • 71*RFEHA ) 4 4 86 

GO TO 231 4 4 ft 7 
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230 

OPfcM = 0.899E-06 * ROME * VME * VME * WBARE * REEHA** 0.322 / 

44dP 

_ 231 

1 <5 « UfcHA * Zl) 

OPEX * 1.08E-04 * ROME * VME * VME 

4489 

4490 


OPrtov « 2,l5E-o^ t( F.«OM*EVM*EVM - ROME"*Vme#vme 1 

OPTOTCNUWBR) b DP!h + DPE^T + QPC + DPEX ♦ DPEW - ORMOM 

" "4T9 1 1 
4492 


REtW s 1 1 , Bfc + 06 * ROME *“T TTTW * PE 7 (31b, +"T0U( MJMRR ) > 

STORE s ( AMV I ( NIIJM0R ) - AMVE ( NUM8R } ) * ( 603 « 0**TQU( NUM0R ) ) +1.E-30 

4493 

4494 


" Will- { MLMRR ) = ( DTTW75TTJPETTir»0Y333T33 I - TO ; OS25*T?OME*VME»\mE 

1 / REFN **0.25 + 0,1325*(AMV!(NUMBR)-AMVE(NUMBR))«VME/<niIM*ELC)) 

- 4-475 

4496 

4flH 

CONTINUE 
OPTM = p,p 

-^497 

4498 

214 

00 "214 1 8 l.IKiTS 

ootm = optm + optot < i ) 

4499 

4500 

- - ■ 

STORE 8 INTS ■ — ' 

npyw s npTN / STORE 
TOP s IOP ♦ 1 
00 163 1 = 1, INTS 

450! " 

450? 

"4503 

4504 

163 

TMABS ( ( DPTM-DPTPT(T1 J VDPTMr- , 021 1 63 , r637T63 " 

CONTINUE 

4505 

4506 

165 

" CO TC 164 - — 

JF(IDP*6> 168,164.164 

45n7 _ -“ 

4506 

168 

FMIOTC = 0,0 ' " ~ “ 

00 166 1=1 , INTS 

4-* 09 “ 

451P 

166 

AMTCTTT = DPTM * AYnTT I ) 7 OPTOTID ' "" ~~~ 

EMOTC s EMOTC AMTCt I ) 

FMOfC = E^DTC * EN / S 
00 167 I = l, INTS 

4*11 

4512 

4*17 

4*14 

167 

ixcrarr aytc< i > * <fmog+emovni / eydtc 

CO TO 77 

4515 

4*16 

164 

IMF 

TTO 18 fry = 1, INTS “ — •— ■ 

!E(TCU(J) - 492.) 1*9, 189, \ 88 

CONTI nUE 

CO TO 195 

“4'5T7 
4 ^l M 

4^1 a 

iff? 

RNSS = ENS * S 

WRITF ( ITP2.2O06) EMSS 

4^21"” 

4622 

20P6 

Fo~PVAT?ffH NS.S = E5.1.16M FR02FN SFGMENT) 
!E(FVSS-1 ,01)1 ,1 ,191 

4S?4 

m 

195 

kNS 8 fcNS - 1,0 / 5 -■ 

INTS 8 INTS - 1 

"" Go TO 64 “ ‘ ' 

T^x 1 s 0.0 
TMX? = O.fT" 

00 196 I si, INTS 

4-S25 

4626 

4^27 

4^79 

196 

TFyi ♦ TMVFm * Tourn 

TM*? = TNX2 ♦ 4KVE1 I ) 

TOMTTx’sTVxS / TMX2 

POMlx s 6.658E-07 » EF ** <0,02531 * TOMIX) 

4531 

453^ 

F537 

4534 


RMO\/V s 9,06 * EMPG / " (F«'T POMIX =~TD 
SNOUT s EMQVM / EMDG 

4535 

4536 


riot s n.n ■ ■ ~ - • ■■■■■ - •- 

3W 


O^T s fi,0 453 B 

rr?T-?34 I * l.JKiTS JPTT3 

QTOT = OTOT 4. QTS ( I ) 4*40 

234 OFT s GFT ♦ QFS(I> 4*41 

OTT s GTPT - OFT 454? 

7J5 *TS HSS = F NS * S - **rr! 

WRITE ( ! TP2 i 3333 ) 4*44 

3333 ^^wiTr//V - ' " - • - ■ -45**5 
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WRITE; (ITP2.2n0fl) TOMIV,POMlX,FNSSiGTOT * OF T » OTT i T I NS A i 4546 

TTSPVr, SHCDTiTT, TS'( I V, AWTST I ) , AMVTiT) # AWVET I ) , TOUT ! )7 ETNUFTT 17 4547 

? 1*1 , IMS) 4?,4M 

? nnR FORMAT (9y5HTOM I X9X5>4PnMTX4X4MS, MSI ay4MGTOTl'1X3HQrTliX3MriTTVy 454R 

1 l 5WTINSAinX4HOPTM9y5HSMOUT/.9x5HOEG R10X4HPSI A18X4HB/HR1 PX4HB/WR 4550 

j>inx4PP/HR9x5HDEG R11X3HPSI/ 7 ?Ft 4 , 5 , FR . 1 , 3F1 4 , 2 , FI 4'. 5 . 2F14 , B 7 » 4551 

3?7X?HTS12*3HYG 1 12X3HMV 1 1 2Y3WMVEl2*3wTOUl 2X3HNUE/ * 20X5H0F.G R*X 4*5? 

4?MLPS7^'IN«x7Hl.BS/MIMeX7HLBS/MlNlOV5HDEG R6X9HN0 OF G,S/ , (3X,I?7 4553 
5 5X,6Fj5,5)> 4554 

!F<T0'K!'X-T0UT*> 1. 601.601 

1 T MTS * I NTS - 1 4G ’ e ’ ,S ’ 

FMS = ENS - 1,0 / S 4< ^ 7 

I F ( T NTS S 401. 601,64 

■jini"- r.OKiTTMlF ' 4*59 

GO TO 600 4<S6n 

FMD 

RTlpROUTTMF T4RLF ‘ 456T 

0 I MF\S 1 ON CCC(9,3) . 777( 9,5) ,C(R) , Z ( 9 ) , HER I V ( 22 . 21 ) . DELTA ( 21 ) 456? 

CfWCM K“. J55 , I HALT. INOXS. 4567 

1 nFRIV. DELTA, C, Z. Yl, Y2. Y3. Y4 , TTP1. ITP? 4564 

C r.REATF RArrpiTOR- JMPIIT TABLF “ 4565 

C PROGRAY CONSTANTS - SFlFCTJON 4566 

OATA' 0007777/3*1 . n73*rr,07T , , ?*0 . 0 , 1 . 1?5 , ,5, ,7*5,n. ,2*1 . . . f , 7, ?5 , 4567 

1 . 75,1 . .1.5, 0, ,2. ,?*n , ,1 . , .5,5*1 . ,0 , , 1 . ,0. , i , ,1 . , .5, n. ,2*1. . ,o , ,4 . ,?4 C 6R 

2*1 , ,1,5.3*. 866 , 1 , ,0, ,1 • , 0 . ,3, ,2, .3*, 707,1. ,0, ,1. ,0, ,4. ,1 . , .5,o. ,1.4566 

3,o.,l.,4.,i,,l,/ _ _ 4ts Z n 

READ (lTPl,10n2) I , J ,K, L ’ “ 4571 

ino? F0RYAT(4I1) 4 C 7? 

WRTTE ( ITP?, 1005)1 ,J,K,L ‘ “ ' 4577 

1 005 F ORVAT ( /RH PUNT IS ?X4H/) _ 4 57 4 

000.(4,1 ) = 0,5 ' " 45 7^ 

00 i II = 1,9 4576 

C( T1 ) = CCC( 11,1) 4577 

1 7(H) = 777 ( 1 1 , J> 457R 

GO TO M6', 157T6,16,157YJ “ ~ " 2fxrrT 

15 7(3) * C ( 4 ) 4 c 'bO 

16 COMTIN'LF 4 5R1 


IF(Y-l) 2,2 ,3 45ft? 

? "vi =17 4(587 

Y? s 0 , 45,14 

GO TO 4 45 B 5 

3 Yl = 0 . 4566 

Y? = 1 . 4587 

4 I F ( L - 1 ) 5 , 5.6 4 *HR 

5 Y 3 = 1 , 4 5 R R 

Y 4 = 0, 4590 

RFTDRM 4 K 9 1 

6 Y 3 * 0 , 469 ? 

Y 4 * 1 . 4593 

RFTURN' 4 59 4 

P NO 
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SUBROUT INF CROUT 
' R I ON A ( 2? , 2i ) N f?l ) 

COMMON) N i J55. !HA|_T, JNIDXS, A, H 

vT ifKf+I " ' : " 

00 200 Ksl.NI 

K1.«1?+T 

.JaK 

WfOfl laF.Ni 
SUMsq.O 

TTTJ-l 5 1 P , 13,10 
10 TPM-1513, 13,11 
It TP< !-JH7Vi7,?i 
17 TSMVsI-l 

00 T2“ISsl, !SMX 
1? S'IMsSUM+a< IS, I )*A( I , !S) 

"TT4 rj-.Ti s-stj, it- sum 

GO TO 100 
?1 JSMXrJ-1 

on ?2 JSrl.JSMX 

?2 "si JM = SUM + A t JS , I > * A ( J . J5 5 

?3 At J, I 5sA( J, I 5-SUM 

TOO CONTINUE 

! = K 

00 ?OfT JaKl.M 

SilMrn.O 

TP< r-ll?13.233,?31 
?3l TSMXrf-1 

00 77? IS=l,I5My 

CllM-CHVlA / TC 1 \ M. A t I T C \ 

’ ^ t- ~ W 1 

731 TFT AT I # DTT50 » 3^1* 3^ 


4595 

417* 

4597 

4~6?R 

4599 

4~8TTD 

4601 

”1W“ 

4603 

4TO4" 

4605 



4607 

46TT6 

4609 

*'461 TT 

4611 

4617“ 

4613 

46T4 

4615 

46X6 

4617 

47TX 

A A <4 A 

-* ’ ■ L. T 

452n 

4521 

4*27 

4523 

4*?4 


351 A(J,I5aP.P 

r,o to ?no — 

350 A(J, I 5 a ( A ( J , I 5 -SUM ) * < 1 , /At I , I 5 ) 

?00 COKiTlNiLP 

0 wavP COMPLETED FINDING THF DERIVED matrix 

00 3nn is=i,N 
SI (Man. 0 
JSaM-TS+1 


JSlaJS+1 
00 ?m KSeJSl,\i 
tPO'S-N5?50,2*C.3no 
?A0 SI IM = ST]M + A( KS, jS5»RtKS5 
300 u( jS5aA(M , JS)-SU M 
j55rJS5+1 """ 

T P ( ?0-U55 5 30?, 30?, 303 
30? I^AI T a 99 
TNIDXS s 2 
303 RETURN: 


END 


4525 

452 * 

4^27 

45?n 

4*2 <j 

4 is 30 

41*31 

453? 

4533 

4534 
4 5 35 
4*3* 

4537 

453P 

4539 

454H 

4541 

4542 

4543 
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COMPUTES PLOW CHART - ISOTHERMAL PKKFOHMAUCB PROGRAM 



Figure D-9 
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SOU RCE DECK PRINTOUT 
ISOl'ilKKMAL PERPORMMCEmXaAM 


C T5""R/C - ALL CHNFIGS - PERFORMANCE PROGRAM 

DIMENSION 0(34,33) ,B( 33 ) , C ( 33 > , I SB( 7 , 33 ) . T< 33 ) , ROC ( 33 ) EOCF ( 33 , 
l.wfTJr , NT S ( i 2 ) V T3 f M ( 1 2 » 12 ) , 3Q<i2,i2.2).EMTUXM2),ELCX(l?> , 
TS4X(12), HC0X(1?> ,TOU(12) ,WW(9>,TF<9),COZ<3), T!TLE<16) 

- TTOMMOM Ci;C7,C3.C4 ,T5 ,C6 , C7 , C8.C9, Z1 .72. Z3. 74 ,75 , 76,77,78 ,79 , * 

1 VI. Y?,Y3‘,Y4, ITP1, 1TP2.D.H, J59, IJS 
EOU if VALENCE ( T4S, TST4 ) . ( WW ( 1 ) , Wi ) , ( WWC ? ) , W2) , ( WW( 3 ) , W3 ) . ( WW( 4 ) , W4 
1 ( WW ( 5 ) , W5 ) , <WW(6),W12),(WW(7),W23).(WW(8),W34),(WW(9),W45), 

? (TFUT7TF13 , ( TF( 2 > , TF2 ) . ( TF( 3 ) , TF3 ) , ( TF{ 4 > ,TP4 ) , (TF( 5 ) , TFS ) , 

3 <TP(6>.TFl2),(TF(7),TF23),(TF(«).TP34>, <TF(9>.TE45> 

~ F\jgp (A.F) = (A + B) / (2.*(A + 8) +C0N2) 

1003 FORMAT(I2) 

I f Pi = 5 ' " 

ITP7s6 

DATA TSF7? , 1 , 7 , 32,3*0. 1 , 2 » 3 . ft , 37 . 2*0 , 2 . 3 , 4 . 9 , 3*0 , 3 , 4 , 5,10. 3*0.4, 
16, 11, 3*0,5,6,12,4*0, 9,7, 1,32, 13, 2*0, 7, 8.9, 2, 32, 14, 0,8, 9, 10, 3, 15, 

70,9 7TTT, n ,4.16 ,2*0 , 10 . 1 1 , 1 2 , 5 , 17 , 7*0 , 1 1 , 12 , 8 , 18 , 3*0 , 1 4 , 1 3 , 7 , 32 , 1 
37*0, 13, 14, 15, 8 , 32, 20, 0,14, 15, 16, 9, 21, 2* 0,15, 16 , 17, in, 22 , 2 * 0 , 14,1 
41 «,1 1,23, 7*0, 17, 18, 12. 24, 3*0, 31, 19, 20. 25, 13, 2*0, 19, 70, 71 .31,26,1 
50, 20, 21, 27, 27, 15, 7*0, 71 ,27, 23, 2«.16, 2*0. 22, 73, 24, 79, 17, 2 * 0 , 23 ,24 
630,18.3*0,31 .75, 26,19.33,7*0 , 75 , 26 , 27 ,31 .20 ,33 , 0 ,76, 27, 78 , 21 . 3*0 
777,78,79,27.3*0.28.79.30,73,3*0,29,30,24,4*0,19.20,32.33,31,2*0, 
7 r 775»76',‘33 i ,3*QVl , 7, 13,2- n, 1 4 , 32 / 

2 READ ( ITP1.1000) TITLE 


in 00 “FORM A T ( 16 A 55 

WRITE (ITP2.1000) TITLE 


HO i I = l , NSETS 

READ ' ( I TP 1 ,1 0 0 3 ) MTS ( I ) 


5000 
7)5noi 
"5TMT7 
5003 
5O04' 
5005 
) .5006 

5007 

5008 

5009 

5010 

5011 
5017 
5013 

5 . 5014 
2*5015 

9.5016 

7.5017 

4.5018 
. 5019 
, 5020 
315021 

KIOO 

* ' t- 

5023 

5024 
5028 
5024 
5 n 27 
5028 


X = NTS ( I ) 5079 

1 REAn ( I TP1 , 1 0 n 4 ) ( TSI M( I , J ) , QQ( I , J, 1 ) , (30 < I , J , 2 ) 5030 

1 ,J »1.K) 5^31 

1.004 FORMAT ( 3F1D , "4 T 5 - 3 ? 

1007 FORMA T ( 8 F 1 0 • 4 ) 5P33 

"PFATT' "' { ITPl,l0O2)EM, S.OriM.DOIN.WBARl ,W«AR£,TFIV,TFnuT, 5034 

1 Ej_T,ELCG.HFG,EM,R,PiR,TlR,ZKC,RHOL.VISL,CL.SUFT,CV,VIS\/,GAMMA, 5n3m 

7 _ ALWS",ALPHT,ZKTH,ZKF,ET,FF,F5V,EM0S,PBP,EMnT.XlM,TCG,TCARG,TTMTC,5036 

3 TM I XG 5n37 

"WlTl ( ITP7,8o08)EM. 5 , D f IM , OOIM, WBARl , wBARF , TF I M . 5038 

1__TF0UT,F_LT,FLCG,HFG,EM,R,P1R, T1R.ZKC , RM0L.VISL.CL ,S'!FT, CV, 5 n 3R 

7 V!SV,"GAFFAVALPMS.ALPMT,ZXTH,ZKF,FT,EF,FSV,FNOS.pRP.EMOT,yiM,TCG, 5040 


3 TCAPG , T I MTC , TM ! XG 504., 
80n8 “ FORMAT! 59H'FERF0RMAK1CE ANALYSIS PROGRAM , ! SO-TWERMal OIRECT R/C '-'5047 
1/SC/17H FIXED IMPUT/9X1MN9XIMS6X4WD! IM6X4HDOIM5X5MWPARI5X5HWRARF6V5043 

?4HTFTNt5X5FifE0UT8x2HLT7x3HLCG7X3HHFG9XlHM/20X2(6X4MINcM)7(ftX?MFTl?( 504 4 
26V4HIN c H)?( 8x?HFT)6Y4MB/LR/12F10,4/9XlHR7X3MP!R7x3WT!R8V2MKC6Y4MRWi5O45 

4 0L6X4TwvrsT8X2MCL6Y4MSUFT8V2MCV6X4MV!SV5X5MGAMMA5x5HALPMS/6X4MFT/R 50 46 
56X4MPSI A5V5MDEG R30M P/HR FT F LBS/CU.FT LB/FT SEC4X6HR/LB F4Y6WL a 5047 
6S/FT3X7MB/LBS FlOM LBXFT - SEC75F1T3T4 ,7F 10 , 7/5X5HAL p HT7*3MXTMRX7WXF85n4R 


FIGURE D-10 
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7X2HF TflX2HEF7X‘5HFSV7X3HNOS7X3WPBP7X3HMnT7X3HXIN7X3HTCG*X5HTCAPG/ 50 49 
R 1 oyTrfmrT7WTTTTT5T8 7HLSS/M ! NlOTHTOWDE'e ft ) /l'2Fi 0 . 4 T 5x5hT I CS flSFV - 
9 5 x 6HTMIVG/2< 5X5HPEG R)/2Fin,4//> 5051 

CALL TABLE ' 505> " 

I SL1 = 0 5^53 

0V24 S C I I M / ( 2 4 , «V ! S V ) ' " ' 5054 

V314 e 4 PPO , * Y3 * Y1 + 10000, • V? 5055 

HC'APC = CL » RHOL *7'<C / VISL ' 3nW 

Y1427 * 1,375 * Yl * Y4 5057 

IF(PBP ) 551 , 550 ,551 ~ 5 - 05* 

550 THETA s n, 5059 

0,0 TO 55? 5o'6'0 

551 THETA s 0,25 5061 

55? FmS = *, / EM 504? 

Y 4 1 P 7 8 1.07 * Y4 5063 

EMDR 8 EM/S 5064 

CMMP7 s 40, * EMDT *CL /£M 5065 

CMM31 * 60, *(CV * TIMTC + VIM #HFG ) ~ ' “ 5 065 

C3DM = C3 * 01 IM 5067 

76633 8 , R33 * 75 - 5"6R 

755 = .5 * 75 5069 

76167 — ,167 * 75 5070 

Oil M2 8 01 IN * DI IN 5071 

OM306 = 3,06 / DI] M2 507 ? 

TCr,V4 = TCG + Y4-l , 5073 

COMP = .503 * MFC, * EM 5074 

?JS=1 5075 

0 1 H A = .5 * OHM * SQPT C Fivi / (71 # S ) ) 5076 

ROMA = R * GA^MA 5077 

'/VI ? 8 12, * V 1 S V/ _ 5076 

COM3 s ,000103 * wBARl / ( D 1 H A * 71 * S) 5"7Q 

C0M17 s ,00395 / (SUFT # HUM « SORT (RHOL)) 50RO 

COMB r ,1275 / < H I I n * V 1 SL ) 5031 

0 0 M ? 5 = 16 , * VISL/(XTM * VISV * RHOL) 5057 

OM23 s 2320, * njjM 5063 

C 1 C 3 P 8 2. * Cl / C3 50«4 

Rl 432 = 432, /RHOL 50H6 

' Rl 144 = 1 44 , /RHOL ~ 5 o R 6 

7 2 C 2 F = 7? # C? * EF 5087 

CM4 1 f = 73 *C 7 « 00 IN* ET 50 ft* 

CM51 I 8 74 * C5 # 00 1 N * E F 50*0 

OmD s DOIm - 01 In 5090 

0«=0 t 00 IN + OIIN 5091 

Cl O'M = Cl *D’ I I N 509? 

C07(l)=1t5, * Y3 * 7KC/0IIN 5093 

COZ(3)=Y410? *ZKC/DIJM *<VISL*CL/2KC>**,4 / <VJ?L * DT!M)**,fl 5094 

C07 ( 2 ) 8 ( CL/ ( D I I M * 7KC ) ) **,4 5P9 6 

0V255 8 .255 /(PIlN * VISIT 5096 

0 X Y 6 8 60,*Y4 * Z * C / 0 l l M 5097 

V7r? 8 75 * Y3 1 4 *• *•"" —• 509 P 

WIN s WPAR1 #EN6 - 00 1 M *,5 5099 

WOIJT 8 W B A R E *EM6 - 00 tM « , 5 ~ 5100 

CLEM 8 CL »60, # ENDS 5101 

FMS13 8 13 , 34 *FMOS * Z^F 510? 

CM41 8 -1.495E-10 * CN41T 5103 

CM4? 8 - ;7T5E"- pi ^ CKT4TI 51 3 4 - 

C M 5 1 8 - . 238F-1 0 * CM5H 5105 

CM 5 7 8 -.367E-10 * CM 61 T 5106' 

FIGURE D-10 (cont'cl) 
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ODD * C2 * ZKTH * OMD/ DPO 

02D2 i 0*0 * DPO “* ”ZKTW 

OOK = OPD/ ZKTH 

C'1U4" v i~394 * CTOTJ 

CN61 = .348 * C3DN 


wTMWC * Wl Kj WOllT” 

ODOl 7 « 1.7 * OOP 

T5T5Dft5~s' ,85 * DDT) 

0?021 * .P109 # Cl *020? 


31 


H 2023 = ,002722 • C3*H202 
C0N6 S WIN + WOUT 

IP(C5-1. > '31 , 35 .39 

COM = 2. * DO IN / C0N6 


“ F3SP = SORT T. 05 ”* CONI + . 00253 1 (CONI +.15 + 
1 COM 5 / (CONI + 3.9) 

F4SP = SGPT (.2 * CONI +.04 ) 

1 COM) / (CONI + 3.6) 

F5SP = SORT (, 45 * CONI +.2025) 

1 COM ) / (CONI + 3,1 ) 

F6SP = SGPT ( .8 • CONI +.64 ) 

1 COM) / (CONI + 2.4) 

C0N2 s CCK6/ DO IN 
C0N3 a 1. / (1, + 2,*C0N2) 


(CCNi +.4) ♦ 
(CONI +.9) + 
(CONI +1.6)+ 


SORT (3,803+ 
SORT (3.24 + 
SORT (2.403+ 
SORT (1.44 ♦ 


35 

351 


FI SP = .6366 *(i, ♦ C0 n 2“* (l,- SORT ( 1 . +DO 1 N/CON6 ) ) + ,5 
1 ATAN ( SORT (1, - C0N3 * C0N3) / C0N3 ) 5 

GO TC 4Tf 

I F ( 73 ) 351,39.351 


COM2 = CONl * CONI 


*■ - rn; 

F4SP = FNSP (.2 *C0N1,.04 ) 

F5SP = Fn 5P ( , 45*C0Mi « , 2025 ) 

F*SP = FNSP (.8 #C0Nj,,64 ) 

FiSP = .3183 * ( ATAN (l. + 4, 
00 TO 40 


j. ciicB r. as +COM ; 3 ,81133 
+ FNSP (1.8 *COM,3,?4 ) 

+ FNgP (1,55 *00X1,2,403) 
+ FNSP (1.2 *C0N1.1 .44 ) 

/COND + .21465 


39 


F3SP 

F4SP 

~F 5 “SP“ 

F6SP 


= 1 . 
* 1 . 
= 1 . 
*1 . 


tisp =' i ; 


5107 

5 1 0'8 

5109 
"'51 10 
5111 

5TT? “ 

5113 

5114 

5115 
51Jf 
5117 
511* 

51 19 

1 ,95*5120 
5121 
1 . » *51 2? 

5123 
1 .55*51 24 
51 25 
1,2 *5126 
51 27 
5 Y 28 

5129 
51 30 
5131 
513? 

51 33 
5134 
51 35 
5i 36 
51 37 
51 3 n 
51 39 
51 40 

51 41 

51 4? 

51 43 
51 44 
51 45 
51 46 


40 00 998 HI s 1, NSF.TS 5147 

FNS a 1, ' 5148 

NNS = S +.0001 5140 

33“ “FFTSS a «r“* ~'ENS 5150 

FNNS = F.N # F.NS 5151 

jJJ'sNNS 515? 

SUM a Q . 5157 

~m 653“”' I “a 1.JJJ 5154 

TS4VU) a TSIN( II I » 1)*TSIN( II I ,I)*TSIN(I I I . I )*TSIN( m , T ) 51 5 K 

rF(TSrK(nT,iy3 651,653,653 5156 

651 TS4 V ( ! ) s 5.83F+8 * ALP W S/ ALP W T ♦ 30( 1 1 1 , 1,1 ) + 00( 1 11,1 ,?) 5157 

653 SUM s' SliV + TS4y( 1 ) 51 58 

T4S a SUM / FMSS 515° 

T S A V G = T4S '5160 

TS s TSAVR**,?5 5161 

WRlTF { I TP?, 9912)111. TS 516? 

991? F0RMAT(/6H GROUPI3,?OH VALUE OF TS AVG, IS F8.1.6H PEG o/) 5163 

TC AP a TCAPC, + TCG ' ' “ 5164 


FIGURE D-10 (cont'd) 
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P CAP = PIP* EXP ( ( TC AP/TJ.P -1.) * COMP /TCAP) 5165 

ROVAP= ™ # PCAP /TCffP 5TFS 

3 EMTU = EXDT *(1. - THETA) /ENIMS 53 67 

JCMT s 0 — — 51&B 

ISW1 = 1 5169 

TREp = n - ~ 5T70 

705 VINAP a C N 306 *FMTU / ROVAP 5171 

UPyp— DV ?w -, 'yy^p * -ROVITP - - T TT7 

!F(REAP - 2000.) 71 , 71 , 72 5173 

71 FPAP * 64. / RFAP ' ' “ 5TT5 

C,0 TO B 5175 

7? IF ( RE Ap - 4000.) 73 " , 74 , 74 ' “ ' 5f76 

73 FRAP a .00277 * REAP •» ,322 5177 

IFTTC' 8 51 7 F 

74 FRAP = .316 / REAP **,25 5179 

8 0,0 TO ( 800,491) , ISW1 ' 518 0 

800 HC AP a Yj 427 * VINAP *SORT (HCAPC *ROVAP*FRAP) + Y314 5181 

IF(TCG) 21. 2? , 21 - 5TB? 

21 COM3 = ?. * ELT 5183 

CM LI '*« WlMWO / COM3 - 5184-" 

CML? = ( TF I M - TFOUT) / C0N3 5185 

CNL3 = TFIM * WIN - - 5186 

CNL6 = C1D4 / (48,/HCAP + DDK ) 5187 

CML 7 = .5 * CML6 / C1C3P 5168 

C 7 SIMULTANEOUS T -LCC -T**4 EQUATIONS 51 HR 

C 6 TFVPERaTLRE UNKNOWNS , 1 LCC 5190 

C CONSTRUCT DFRIVITIVF MATRIX 0(8,7) 51 91 

J55 =0 51 9? 

00 801 I * 1,6 51 91 

801 T ( I ) = 1050-16 *f " 51 94 

T( 7 ) *5 « 5195 

W 00 803 1=1.6 5196 

C( I ) = T( I ) * T( I ) * T( I ) 51 97 

00 803 J = 1,7 5198 

803 0( I , J ) * P , 5199 

T12 = T ( 1 ) - T( 2 ) 5200 

T73 = T ( 2 ) - T ( 3 ) 57C1 

T34 = T ( 3 ) - T ( 4 ) ' 5207 

T45 a T ( 4 ) - T ( 5 ) 5203 

T56 a T(5) - T( 6) 5204 

CML 4 a T ( 7 ) *CNL1 5?05 

CN|.5 = WIN - CNL.4 5706 " 

CML11 = CNL7 * ( TCG - T(2)) 5707 

FI..0 IP = (CM3 - CML? *T ( 7 ) * ( W I M+CNL5 ) ) / (ONI 5 * CNL5) * ?KF ' 57U* 

El.ROR 8 (WIN - ?, « CNL4) * 7?C?8 5209 

FLTRM a ( T ( 7 ) *(TFIN -T ( 7 ) * CNL2 ) / CM55 * 7 KF 5210 

CML« * T ( 7 ) « (WJM - T ( 7 ) * CNL 1 ) * 7 2 C 2 F 5211 

CONI a CNL 8 / EI.ROR - 57 1 7 

n ( 7 , 2 ) = - T23 * 6.67 « FlOIR 5213 

017.4) = 2,22 * FLOTR * T34 * 5214 

0(7,3) = - 0(7,4) - 0(7,?) 5715 

0(7.5) =1,334 * FLDIR * T45 ' 57i"P ' 

0(7,4) = 0(7,4) - n(7,5) 5717 

0(7,6) a 0,952 * ELOIR * T56 571P 

0(7.5) a 0(7,5) - 0(7,6) 5719 

0(5,6) = r9'57~* FUTW 01 5^7tt 

0(4,5) = 1.334 * FLTRM 5721 

0(6,5) = 0(5,6) 572? 

FtGURE D-10 (cont»d) 
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0(3,4) * 2.2? * ELTRM 5?23 

0(5.4) s D ( 4 i 5 ) ~ 577R 

0(2.3) = 6,67 * ELTRM 5225 

0(4.3) = "DT3 ,4 ) * 5226 

0(3,2) = D(2.3) 5227 

0 ( 2 . 1 ) iiwir * rm 5 ??* — 

0 (7.2 ) = 0(7,2) +CM 11+ ,5*DOD17*T12 5229 

6 ( 1 , 2 ) « ,5 # 0 ( 2 . 1 ) ' ~ 5230 

CN L9 a -3 . BE-ll • CNL 8 * (C 6 * F 6 SP) 5231 

0(6.6) = 4, • C( 6 ) * CNL9 - 0(5.6) 523? 

CML9 a (T( 6 ) * C ( 6 ) - T4S ) * CNL9 5233 

0(7,6) a 0(7,6) ♦ C N L 9 7 C ON 1 5234 

0(8,6) a -CNL9 ^ T56 * 0(5,6) 5235 

CML9 a -2.85'E-ll • CN'L 8 * (C 6 ♦ F5SP) 5236 

0(5.5) =4, * C ( 5 ) * CNL9 - 0(4,5) - D(6,5) 5237 

CML9 * ( T ( 5 ) * C(5 ) - T 4 S ) * CNL9 5238 

0(7,5) s 0(7 ,5) + CNL 9/ CONl 5236 

6(8.5) = - CNL9 - T 45 « 0(4»5) +¥56 # D(6,5) ‘524 n~ 

CWL9_= -1.90E-11 * CML« * ( C 6 ♦ F4SP) 5241 

~0( 4 » 4 ) = 4 T # C( 4 ) "* CNL 9 - 0(5.4) - 0(3.4) 5242 

CM L9 s (T(4| * C( 4 ) » T 4S ) * CNL_9 _ 524 3 

0(7,4) = 0(7,4)' ♦ CNL 9 / CONl 5244 

0(8 .4 ) * -CML9 - T34 * 0(3,4) + T45 * 0(5.4) 574 'S 

CML9 = -.950E-11 * CKIL 8 * ( C 6 + F3SP ) 5246 

0(3^3) s _ 4 * * C(3> * CML9 - 0(4,3) - 0(2.3) 5247 

CML9 "a (TT3) * C(3) - T4S) * CNL 9 524 8 

0(7.3^ a 0(7,3) + CNL9 / CONI 5246 

0(8,3) = - CNI..9 - T?3 * 0(2.3) ♦ T34 * 0(4.3) 5250 

CNL 9 _a_ -.2386-10 * CN5lT * T(7) 5251 

n ( 2-. 2> * 4. * t\ 2 ) * C Kr L a -0 f 3. 7 V- n f , ;?) - T f 7 V * rwi_7 '5259 

CNI.9 a (T(2) * 0(2) - T4S ) * CNL9 5253 

OTT.'gy a 0(7,23 > CM 1.9 / t(7) 5254 

0(8 ,2) a -CNL 9 + T23 *0(3,2) - T12 * 0(1,2) - CNL 11 » T(7) 5955 

CNLQs-i , 495 E -1 0 * Fl SP*CN4i I • T(7) 5256 

0(1,1) = 4, * f(l) * CNL9 - 0(2,1) - CNL 6 * T(7) 5257 

CNL 9 a (7(1) * C(l) - T4S) * CNL 9 5258 

C0N2 a CNL 6 * ( TOG - T< 1 ) ) 5259 

I5(T,TT s C0N2 - 00017 * ¥12 + CNL 9 / 7(7) 5260 

0(8,1) = - CNL9 ♦ T1.2 * 0 (?,t) - CON? » T(7) 5261 

"0(1.7) a - C^L 6 * T(7) - 5267 

0(2.7) a C K L7 * T ( 7 ) * 2 . 5263 

0(7.7) a - CON? - 2 . « CNLll 5264 

0(8^7) a -T ( 7 ) * 0(7,7) - CNN31 * . 3333333*EMTU 5265 

CTLL CR0l.T'(7 ) 576 6 

GO TO (805,804) ,IJS 5767 

8 04 WRITE { I TP? , 8041 ) 5768 

8041 F0R v aT( /37H2Q CYCLES--NOT CONVERGED-- LCC MATRIX/) 576P 

GO fO 2 577 n ' 

8^5 00 806 K a 1,7 5271 

806 T ( K ) a ¥ ( KT" ♦ H ( K 5 5777 

1F(ABS ( E ( 7 ) ) - ,0005) «07. 802 , 802 5773 

807 00 8061 K=1 , 6 5274 

IF(ABS (H KD- 1 .) 8061,802,802 577 ^ 

8061 CONTINUE ‘ 5776 

ELC a T ( 7 ) 5277 

GO" TO" 2201" ‘ 5278 

2? ELC a ELCG 5279 

2201 ELSC a El¥- ElC ' " ' 598 n 


FIGURE D-10 (cont’d) 
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IF ( ELSC ) 221 , 23 ,23 5201 

"22l WRITE ( ItPTTtlOO) ELSC 5282 

lino E0RMAT</19HST0P. NEGATIVE LSC ,F10,5) 5283 

00 TO 9901 ■ " 5204 

23 CONI a EKTU * DV255 5285 

ENEL a ENDS *20 . * ELSC * TKF 57W" 

FML1 =,00545 * OJ1N2 »RHOL/S *<EN * ELSC * WBARE) 5287 

efWj j V ertp »*,4 ~ T 2 RF 

WSC=C0Z(1 )*C0M2*COZ(2) 5?89 

IF<C0M- 2300 , ) 2301 , 2301 , 2302 “ " "5290 

2301 HSC = HSC + DKY6 5291 

GO TO 2303 " ~ 5292 

230? HSC = HSC ♦ COM?#CON?*COZ( 3 ) 5293 

"2303 FLT = .167 * ELC 5294 

EL? = ,5 *ELC 5295 

El-3 = .833 *ELC 5296 

El 4 a FLC + ,25 * ELSC 5?97 

"EL 5 = ElC + . 75 * "ELSC """ 5?9fl 

FLT = FLC * ELSC 5299 

' Ft; 23 = ?,*ElC + 3,* ELSC ‘ 5300 

EH09 = .0932 * EM 5301 

coMi. = flt - Eli * 5302 

COM2 = flt - EL2 5303 

COM3 = ELT - EL3 5304 

CON21* ELT - EL4 53Q5 

CON??= ELT - EL5 57Q* 

W 1 = ( WIN * CONI + WOIJT * ELI ) / FLT 5307 

w? = < w t n * CON? + WOijT * EL? ) / Flt 5308 

W3 = ( WIN * C0N3 + WOljT * EL 3 I / FlT 5309 

W4 = ( WIN * C0N21 + wOijT « EL 4 ) / FlT ~ 53l0 " 

W5 = < WIN * C0N22 + WOUT * FL5 ) / FlT 5311 

M2 = ,5 * < w 1 + w?) 531? 

w?3 = .5 *(W 2 + w3) 5313 

W45 = .5 * ( W 4 + W5) 5314 

ELLCa (FLC / FLSO* .6666*667 531R 

W34 a < W3 + ELL C * W4 ) / f 1 , + ELLC) 5318 

_ TFi a ( TF I N * CONI + T F 0 U T * ELI ) / FLT 5317 

TF2 a ( TF 1 N * CON 2 ♦ TFOUT * EL? ) / FLT 5318 

TF 3 a ( TFJN • COM3 + TFOUT * EL3 ) / FL t 5319 

TF 4 r ( TFIN # C0N21 + TFOUT • EL4 ) / FlT 5320 

TF5 a ( TF I N • COM2? + TF A l)T * EL5 ) / FlT 5321 

TFI? a .5 #(TE1 + TF21 " S3?? 

TF23 a .5 *(TF2 + TF3) 5323 

" TF45 = .5 * CTF 4 + T^5) 5T?4 

TF34 = ( TF 3 + ELLC *TF4 ) / (1, ♦ FLIC) 5325 

WIF a WIN - wlMWO * ELC / ELT 5728 

WNPWF a WIN + WIF 5327 

CONI = WJN / WNPWF " 5328 

COMA = (WIN - WIF) / WnPwF 53?9 

"7WT r‘ 75833 +' 70 * (1, - 1,6*6 #' CONI + .695 * COW) 5T30 

7KK? = 755 7<5 * (1. - COM + .25 * CON* ) 5331 

7KK3 = 75167 + 76 * M. - .333 *“ CONJ + .0279* CON* ) 531? 

491 WCON'O 8 Yl 427 * ?KK? * VJNAP * SORT (HCAPC *ROVAP*FRAP) + Y31? 5333 

C CALC. ROC , B , EOCF 5334 

CONI a CN41. * ELC * EiSP 5335 

C 0 N ? a CM51 TTECC 5335“ 

C^N3a Z?C?E# ELC 5337 

CMN7 = ELSC * ZWE 5338" 

FIGURE D-10 (cont'd) 
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CNN* = 7KF/ ELSC 

W* n?n 2 *C3 

CMNin S CNN9 *,00182 /ELSC 
CMN11 s 4, * ELC / EL23 
OODLS *1.272 * ELSC * 000 

CNNT3" " 7001*1333 V ZKF • TF34 * W34 /EE 23 " 

CNN12_ * CNN10 • C1C3P 

DO 3010" I *1.13,6 

J = 1 1/6 

C0N6s COM * MW( J ) 

?ncu ) * com 

RDC( I +l)s COM2 

Rncn+2) * - , 95E-11 « CON6* (C6 ★ F3SP ) 

RfSTT T+ 3 5 ~ f , 9 E -1 1 * CONI 6* <C6 ♦ F4SP ) 

ROCU+4) = -2.85E-U* C0M6* (C6 + F5SP ) 

3P1P ROCU+5) i -3.80E-11* CON6* (C6+F6SP) 

CONI = CM4? *ELSC 
CON?* CN5? *ELSC 

C0N3* 72C2F * ELSC 

00 ' 3nil r * 19*25,6 
J * 1 + 1/6 

C 0 N 6 s C 0 N 3 * W W { J ) 

ROC ( I ) * CONI 
ROC ( I +1 ) = COM2 

ROC ( I + 2 ) = -. 142BE-10 * CON*« <C6 + F3SP ) 

ROC (1+3) * ^;?85E-10 * CON** (£6 * F4SP) 

ROCU+4) = -.428E-10 « CON6* <C6 + F5SP) 

301 1 ROCU+5) = -.57OE-10 * CON** (C6 ♦ F6SP ) 

00 3020 1 = 1,30 
jnon q 7> j ‘ - fe4 V D bC ( ! ) 

00 3021 I = 31,33 
onr , t ) - — g t 

30?1 «(!)** 0. 

CON* = D2021/ELC 

WC9 = ELC / (24,/WCONO * ODK ) 

RSI * ELSC / (24,/WSC + DDK) 

CON?3 = C1DN * HS 1 

crw?4 "» — c 3D w * hr i — • ■ 

C0N?1=C3D4 * HC9 

C0N??*C3i^T *MC9 
CONI* ELC * ZKF 
CON?* ZKF / 'ELC 
CM13 * ELC • DDD85 

~ CM 4 * U2F23 "/ELC 

00_30SO _I * 1.5 
J * 6 * ! 

K 8 6 ♦ 1/3 

THE t _-4 y 3030, 3035 , 3035 
3030 CM11. = TF(|)/WW(P « CONI 

~CN1? =~tFTkT *WW(K) * CON? 

EOCF(J.l) s ,95? • CNlt 

EOCF (’ J , 3 ) s , 00834 *CNi~2 
EOCF(J-l.l) s 1.334 * CN11 

EOCF( J-1,3) * EOCFU.il 
_EOCF( JM,_4) s.00624 « CN12 

FOCF(J-?,l) s 2.2? * CNl 1 
EOCF(J-?,3) s EOCF(J-l.l) 

F.OCF ( J-2 , 4 ) s ,00417 * CNl 2 


5339 
— 5347T 
5341 
534?“’ 
5343 
— 5344 
5345 
' 534*' 
5347 
' 5348 

5349 
■5'35o 
5351 
535? 
5^53 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 
536? 

5363 

5364 

5365 

5366 

5367 

5369 

517H 

5371 

537? 

5373 

5374 
337*5 

5375 
5377 
5377 
5379 
TT B H - 
5381 
5187 
5381 
538 4 
5385 
5358 
5357 
5387 

5389 

539*" 

5391. 

5397 

5393 

5194 

539* 

539* 
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EOCF( J-3,1 > 
Fo£F< J-3,3) 


6,67 # CM 1 

T5CFTU=27TT" 


F0CF(J-3,4) s ,002085 # CN12 


5397 

TTW 

5399 


FOC F(?5,1 ) 
F0CF(?5,5) 


On Tn51 1 = 1'. TO 
F0CF(L.?)s-6QC.F(L.l) 
nn 30*5 1 I - 3,6 


.33333 * EacF(i9,i) 
2. » EOCF ( ?5 , 1 1 



F0CF(J-4.H s CN13 


~ 5«n 


FOCF ( J-4 , 3 ) * E0CF(J-3,l) 


5^01 


EOCF ( J-"4 , 4 ) 8 CM 4 


540? 


E0CF(J-4,5> s COM22 


5403 


s C0S'?1 


“5^04 


focF(J-5,1) s 2.* CM3 


5405 


FoCF(J-5.3) = CON6 


‘ " ' '5406 


TF(I-2) 3050 , 3031 , 3033 


5407 

3031 

00 303? L * 9,11 


"5408 

3 n 32 

F OCF ( L , 5 ) s E0CF(U,4) 


5409 


FoCF(7.*T) 3 ERCF(7,3) 


5"4TTT 


F0CF(B,6) s £0CF<B,4) 


5411 


FOCF ( 12 , 4 1 a EGCFM2.3) 


541? 


r,n TO 305P 


5413 

3033 

EoCF (13,5) = C N M 1 * IFQCF(13,3) 


" 5414 


FOCF(14.6> 8 CNN11 * F OCF (14,4) 


5415 


FOCFM5.5) 8 CMM3 

“ 

5416 


FOCF (16,51 a ?, • C KI M 3 


5417 


F OCF (17, 51 = 3, * CM Ml 3 


5418 


F OCF (18,41 = 4, * CMM13 


5419 


Gft TC 305 H 


5420 

3035 

C M 1 1 = TF ( I 1 /Ww ( 1 1 *r.MM7 


5421 


CM 2 = TF ( K 1 *WW ( K 1 *CK)M8 


542? 


F OCF ( J , 1 1 s 1,428 * CM1 1 


5423 


FOCF ( J-i , 3 1 s EOCF ( J , 1 ) 


5424 


EOCF(J-l.l) s EOCF ( J-i , 3 ) / ,714 


54?5 


FOCF ( J-l , 4 ) s ,00416 * CM12 


- 5 42 A 


F OCF ( J-? , 3 1 s EOCF(J-l.l) 


54?7 


FOCF ( J-? . 1 ) a EOCF ( J-? , 3 1 * 1,665 


54?A 


FOCF ( J-3 . 3 1 s EOCF(J-?,n 


5429 


F OCF (J-3,1 ) s 3.003 » F0 CF( j-3,35 


5 43^ 


FOCF(J-4,3) s EOCF ( J-3,1 ) 


5431 


FOCF (J-4, 5) s CMN10 


5 4 3? 


focf(j-4,d a dooms 


5433 


FOCF ( J, 35 s EOCF ( J-1 , 4 ) # 1.336' 


5434 


F0CF(J-?,4) r EOCF ( J-l , 4 ) * ,6667 


543^ 


FOCF ( J-3 . 4 ) * EQCFCJ-1,4) * 0,3333 


5436 


F0CF(J-4,4) s ,523 * C0M24 


5437 


FOCF( J-5.3) s EOCF( J-4,1 ) 


543* 


FOCF ( J-5 » 4 ) 3 C M M 1 2 


5439 


FOCF ( J-5‘, 1 ) s 1,046 * COM23 


5 4'4‘H 


! F ( J -5 ) 3050, 3037, 3050 


5441 

3037 

FOCF (19, 5) s ,5 * E(7CF (13,5) 


544? 


FOCF (20, 6) s EOCF (14, 6) 


5443 


00 3038 L s 21.23 


54 4“4 

3°38 

F OCF ( l. , 5 ) s EOCF ( L-6 , 5 ) 


5445 


'F0rF(?4 ,41 8 FQCF(1R,43 * 

, 

5 4~4 A ' 

3050 

CO NT I m^F , 


5447 


F oCTF (?6,4) 8 ,33333 * EOC» r (?o,4) 


5448 


F OCF (26,6) 8 2, • EOCF (76,4) 


5449 


5450 

5451 

545T 

5454- 


FIGURE D-10 (cont'd) 
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3051 

EQCF ( L« ? ) * EQCF(L»2) - EQCF(LiI) 

5455 


EQCF(31.1) s EQCF (19(1) • 2,0 ~ ” 

5T5F" - 


EQCF ( 31 , ? ) « EQCF (31,1) /ClC3P 

5457 


CON? s CMKi77 / 

545* ' 


EQCF (31.3) « 1,5 * COM2 

5459 


FQCF(5l,4~5 =-.5 • COM? ' ' 

546" 


F.OCF(3l,5) * "COM? - EQCF<3i,l> - RQCF(31,2) 

5461 


E OOF T33T, 2 ) 8 F QCF ( 31 , 1 ) ' ' - - 

5415? 


FQCF(32,3> = EQCF(3l.2> 

5463 


COMi = EQCF ( 3 2 ,TT ♦EOCF( 32,3) " " ~ ~ 

5X64 ’ " 


FOCF (32,1) = ",33333333 • COM1*COM2 

5465 


EQCF (32,4) * -.66666667 * COM -COM2 

54 66 


R(33) = EMTU * CMM31 

5467 


00 3052 l * 1,3 ’ " " - - 

5469 — 


FOCF ( 33 « L ) a - EQCF (13, 4) 

5469 

3*5? 

F OCF ( 33 « L + 3 ) = -EQCF < 14 . 5T • ? , 

5470 


FOCF (33,7) a -3, * (EqCF(33,1> ♦ EqCF(33.4)) 

5471 

C 

33 SIMULTANEOUS 4TH DECREE TEMPERATURE UNKNOWN FQUaTI~(3NE 

5472 

c 

CONSTRUCT DEFINITIVE MATRjy 0(34,33) 

5473 


TF( IREP) 3990, 3990,399? 

5474 

3990 

!F(TCG)399l, 3993,3991 

5475 

3993 

tF(JCMT) 3®91 ,3991,399? 

5476" 

3991 

00 399 j = 1,33 

5477 

399 

T(J) = 1 000, ' ' 

54 7 B 

3992 

J55 = 0 

5479 

4on 

"00 401. J = 1,33 

5480 


C(J) = T ( J ) * T(J) * T ( J ) 

5481 


uii 4ui I = Ii33 

545? 

401 

0(1, j) = n, 

5483 


on «in n a i»3> ~ "" 

54 84 


CONI =4, • RDC( K ) * C ( K ) 

54 85 


0(34, K) c H ( K ) — , / 3 *00^1 * T ( * 5 

5486 


00 407 LI 5 1,7 

54«7 


J e TSR(Ll.K) 

54 A ft 


I P" C J > 410 ,410,40? 

5489 

402 

T F { k- - J) 4 06, 4 05 , "406 

5490 

405 

O(J.K) = EOCF(K.Ll) + COMI 

5491 


' GO' TO "407 - • 

5492 

40ft 

0(J.O = EQCF ( K , LI ) 

5493 

4H7 

0(34, K) = 15X34,0 - FQOFf K ,L1 )* T( J) 

5494 

4in 

CONTINUE 

5495 


I SL1 = 0 - ' 

5496 


CALL CROLT ( 33 ) 

5497 


(TO-TO (413,41"?) , J JS 

5498 

41 2 

WRITE ( I TP? , 4 1 ?i ) 

5490 

41.21 ' 

FORMAT! /37W?0 CVCLES--MOT CONVERGED— T MATRIV/1 

55Q0 


GO TO 2 

5501 

413 

DO 415 * s 1,33 

5502 


T ( K ) s T { K ) + h(K) 

5503 


TF ( AfiS (F(i<T) -1, ) 415,414,414 

5504 

41 4 

!SL1 = 1 

5505 

41 5 

CONTINUE 

5506 - 


I F ( I SL1 ) 44,44,400 

5507 

44 

TC s T( 3? > - - 

5 5 C 8 


TOUT = T(33) 

5500 


“TCT *TC*TE' 

5510 


TC4sTC4*TC4 

5511 


I F ( IREP) SOB, 50« ,519 " 

551? 


FIGURE D-10 (cont'd) 
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TCAVG * T ( 32 ) 

5513 


T F ( TCGY4 ) 57,51,5? ' ' 

5514 

51 

t F( ABS Cl, - TCAPr./TC) - ,02) 52 , 52 ,511 

5515 

511 

JCNTs JCNT *1 -- 

5516 


TF< JCNT -3) 51? , 52 , 52 

5517 

57? 

TCAP = TC + TCG 

5§1P 


PC AP = Pi R *EVP ((TCAP/TlR -1.) « CONP /TCAP) 

5519 


RnWP * ITMqT * PC AP 7 TCAP 

* 5570 


TSW1 a ? 

5521 


r,n to 705 

5522 

519 

TniKIREP) * TOUT 

5523 

5? 

°C = PIP *EXP CCTC/TlR -1.) * CONP /TC ) 

"" ” 5524 


JCNT = n 

552^ 


RHOV a £T09 * PC /TC 

5526 


VTN = ON306 * f.mtu / RHOV 

5527 


SOW = 5,67 * SQPT CPfiM'A * TO 

5526 


AMACN s uin/sovv 

5529 


TFCFSV - AMACH) 54 , 55 , 55 

" ' ' 5570 

54 

WRITE ( ITP2.541 ) AMACH 

5531 

541 

rnR*TATC/5M MACHFin.P.PXPOWIP TOO H I RH--W ARN t NG > 

553? 

55 

CONI = RHQV * V I N 

5531 


CON3 = CO Ml * V/ 1 M 

5^34 


CON? = COM / VV 12 

5535 


C0N21 s CON 2 * 0 II n 

5536 


RF 1 HA = C 0 N 2 * 01 HA 

5537 


OP j H 2 COM3 * CON 3 / ( RE1HA ) ** , 2^ 

551* 


RFvi r 7KKI * CON?l 

5539 


RFV? = 7KK2 * CON?l 

554r> 


R c V3 = 7KK3 * C0N21 

5541 


I F ( RE VI - 2000, ) 61 , 6l , 611 

554? 

61 

FR1 = 64,/ RFVI 

5541 


0,0 TO 62 

5^44 

61 1 

I F { Rfc VI- 4000.) 612 . 613 , 613 

5545 

612 

FRl = .00777 * REV1 **.32? 

554* 


r.n to 6? 

5547 

611 

FRl = .316 / PE VI **.25 

55 4 P 

6? 

TF(REV? - 20Q0,) 621 ,621 ,622 

55 4 9 

'"621 

FP? *• 64./ RFV? 

555r 


CO TO 63 

5551 

6?? 

TF(REV2 - 4000.) 623 , 624 ,624 

555? 

623 

FR? 2 .00277 * REV2 **.322 

55 5 ** 


00 TO 63 

5554 

624 

FR? 2 ,316 /RFV? **.25 

5555 

-'63 ’ 

TFTREvT - ?O‘d0 , ) 63) ,631,432 

555 6 

631 

FR3 = 64. / RE V3 

5557 


O.n TO 6 4 

555P 

612 

! F ( RE V3 - 4000.) 633 , 634 , 634 

5559 

613 

FR3 = .00277 * rFv3 **.322 

55 6 r 


CO TO 64 

5501 

634 

■Fcj-y- = ,-35 6T/RFV3*'* ,25 

556? 

64 

CON?l 2 1,- ?KK1 « XIN 

5561 


COM22 s i,- ZKK? * VIA' 

’ 55~6 4 


CON'23 s 1,- 2KK3 * V I N 

5565 


CON24 2 EMU « VIM * SORT {RHOV) * CONI 7 

5564 


wFF 1 = 7KKI * CON24 *CON'21 

5567 


WFF? 2 7«K? * CP3J74 •COM2? ' ' 



WFF3 3 ZKK3 * C0N24 *C0N23 

5569 


CONI 2 CONlft • E MTU 

S*7r 


FIGURE D-10 (cont'd) 
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RFi s COM# C0M21 

RF?~i~C0M# COM?? 

RF3 * COM# C0N23 

C0N26' « "C0K:25 ' • RHQV 

FKl t FRi » Z<K! 

F«2 s'TR2 # 'ZKK? 

F<3 s FR3 # Z«K3 
TFTwEFi- 57) 70 " 70, '702 

7 0 IF (RFl - 200 . ) 701., 701, 702 

701 DR1 X SORT ( CON 21 *' CfiN26/(FKi • REVt ) ) 

TF^REVl- 2000, > 7011 , 7011 , 7012 

7011 PM 11 8(1,0 + DR1) ** 4.0 
0,0 TO 703 

70 3 2 PM11 z~T;*, * SORT (.25 + ORi)V ##4.75 
0,0 to 703 

7 n? PMll = tZKKl #X ! N )'**( - ,75 V 

7Q3 1 F ( WEF? - 3, ) 710,710.712 

710 1MRF2 - 200, > 711. 711, 7l? 

711 OR? = SORT (C0N22 * CON26/(F<2 *REV2)> 

-fF(RFv/2 - ?P'0O.) 7111, 711? , 7112 


5S7l 
557?' ~ 
5373 

5574 

5575 

' 5576 

5577 

" 557P 

5579 

5550 

5583 

'5582 

55M 

55*4 

558* 

5586 

5587 
' 5584 ' 

5*89 

5590 


.7111 PHI? = (l. + DR?) **( 4.) 5*91 

00 TO 73 3 " ‘ ” 5*9? 

7112 PM l? s ( .5 + SORT (.25 ♦ DR?) )•# 4.75 5*93 

00 TO 713 5594 

712 PH12 = (Z*K? *X! M )•*(■>. 75 ) **9* 

713 ~ !F(i.FF3 -3.) 720.720.72? 55 96 

720 I P ( RF 3 - 200.) 721 ,721,722 **97 

721 DR3 * SORT (C0N23 * COM?* /<F«3 * REVS ) 1 ““ 5*98 

__ TF(PE V3 - 2000.) 7211.7211 , 7212 5*99 

rtii P"i3 - ‘ C j , : DM ) s “ i 4.5 “ 5'6TTfT 

0,0 TO 76 5601 

7212 MhiT's C ,5 * BwRT ( .25+ OR3n#*4,75 5602 

0.0 TO 76 56115 

722 PMl3‘=T7t?k3 * X f M) **(-.75) 5*04 

76 OPLC = FLC * COM *(PHj l *ZKKl *P<1 + PHI 2 #7KK? *PK? + *60* 

1 p'H1 3 *7KK'3 # F<3 ) / DV2 X 5*8*-- 

COM6=C0N3/9260, 5*07 

OPTOT s CPLC + DP1H - C.0M6 **nn 

PPWiR = FJv-nT*DPTCT/(?36,*RH0L> 56 J9 

~ FMUF X-RI432 * ( 1 , 435F-4 * COM - OPLC) / FLO. **1p 

FN’PO, S-RL144 *(C0N6 - DPLC ) / ELSC 5*1 1 

OTOTC s XMOS • 0(33) ~ *M? 

OFTC s F.NS13 * Eic *( (T(?)-T<3))*TFt/Hl + <T<«)- T(9))*TP2 /'■ 2 + 5*M 

1 TTn.4T“or TT15 ) ) * TF3/W3 1 5614 

OTTO s_OTOTO - OFTC 5*!* 

OTOTS s-'CLEN *EMTll * ( T ( 3? ) - T( 33 ) ) 5616 

OFTS s EMEU M < T ( 20 ) - T ( 21 ) ) #TF4/w4 + (T(?6)- T f 27 ) ) *TF5 /w5 ) 5617 

OTTS X GTOTS - OFTS 561 p 

JVTOT x OTCTC + OTOTS 5619 

«7 WRITE ' ( ITP?,*70>!REP 5620 

870 _ FORV4T(_/fiH SET MO, 13) 5*21 

PMOs “= EMU * HMDS' - . 562? 

TS x TS4 * * , 2 5 5623 

WRITE ( I TP? # 871 ) 56 24 

1 _ TC, PC, ELC, ELSC, TOUT, DPTOT.FNliP »CMPO, , 5*2* 

2 OTOTC, OTOTS .QTOT .EML1.EMDS, VlM , AMACH , TS 5*2* 


871 FnRMAT(13y?HTC13X?HPC13X2PLCl ?X3HLSCll X4HT0UT10X5H0PTOT1. 2X3HNI l£i ?v56?7 

1 3HNJPG/10X5HDEG R1 1X4HPSI A1 3X2HFT13X2HPT1 nX5'M0EG R1 2X3WPSJ6X9H<'0 0F562« 


FIGURE D-10 (cont'd) 
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2 G.S6V9HM"! OF G.S/ 5629 

5 RFl 5 ,5/10X5HOTOTC10X5HQTDT^ir^ff5TOTr?XTHMLli?y^MfTO^ TTJT\ 

41?X3HV/IN llX4HMACH13X2HTS/3( tlx4H8/HR)12X3WLPS«X7HL8S/MIN9y563l 

5 6 HFT/ SF C ? 5*5 HD FG R /JFI 5. 2.3F1 5.573 563? 

R7? I F ( IRFP) BR.RB.95 5633 

fl'fl TV fFfCTJS'- i,T W» *775 9 5*34 

89 !F(, 33333333 MREV1 + REV? + REV3>- 2000.) B9l , 8®! .892 5635 

H'S"! “ TV rr n "■'“ 1 — - ~5F37r 

GO TO 90 5637 

89 2 Fy s 1,75 5435 

9 1" 1 CONI *TC4-TS4 5639 

COM? = F*0T/( FN»E M TU J * ( t , -TRET AT 544r 

EVPl il,/(FX ♦!,) 5641 

TFTTCmW. 9017906 “ " - * 5 TV?— 

9 n l TCM4*TC4 5643 

SlIMMsO, 5644 

SltMDsO, 5645 

90? HO 903 Isi.NNS ~ 5646 

COM6S1 ,-TS4X( D/TCM4 5547 

TOM?4 = C0K6«#Eypi - 5*45 

S'JNO*SUMO + CON?4 5649 

903 SIIMMsSU m K + COM?4/CON6 54 50 

TCM41=C0N?#C0N1#SIIMN/(SUMD#ENS 5 56 51 

IFU6S (TCN4l-TCM4)-l. £ + 85905. 905, 904 ^ 545? 

904 TC M 4aTC M 41 5551 

0,0 TO 902 5654 

905 TCM4*TC^41 5655 

TCM=TCP4*» . 25 5656 

GO TC 907 5*57 

906 T. v 4sTC4 565 A 

907^ 5 1 ) m n s 0 , 5659 

00 908 JsI.MmS 54RO 

908 SHMn=SLMD+( TC^4-TS4V ( I) )**EXP1 5661 

OOTRsOPTCT •CflN'l* ( C0K'2*S/SI )MD ) ** (EX +1.) ' 566? 

DPWPsFXOT*DPTM / ( ?36 , *RM0L ) 5663 

On 909 I r 1 , MMS _ " 5664 

SIIMMsCOMl/( TC M 4-TS4X{ I ) ) 566 * 

FMtllXf I JsFyTlJ»(DPTM/SUMM/npTOT)**FXPl 5464 

EL CX ( I )*SUI*N*EMTUX( I )*FLC/EMTU 5467 

T F ( F L C X < H-ElT) 909, 910.910 5668 

909 CONTINUE 5669 

GO TO 91 1 ~ 5670 

910 WRITE ( I TP? , 997^ ) 5671 

9971 FORM AT (72014 UN' ST A P LF - - - L C GT LT7 ) 567? 

GO TO 99A 5673 

911 t F ( T C G ) 9 2 ? » 9 2 1 » 9 ? 2 5674 

9?1 RMOW S EN(1? *P1R/TC.M *FxP ( ( TCM/T1R-1 , ) * CONP/TCM) 5676 

GO TO c 3 ■“ “ 5676 

9?? PM0W6 s RHOV 5477 

TCE r =07 - - • - 5675 

93 n093l I * l.NNS 5679 

931 wcnv( I ) = y 3l2 + 7KK2 * (TN306 *FHTUVT1 1 /RWftVM * sort T MCAPT “ * 5^8n 

1 ohov/m # Fr?) *Yi 427 5601 

95 IREP = IRFP + 1 56R7 

I F ( I RFp - MMS) 951, 951,96 5683 

951 FIT" s EL.GX( IRFP 1 5 * 5 - 4 - 

CMTM = EVTUX( IRFP) 568C 

TF4 s TS4X( JPEP) 5684 
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WCON'D S RCDX(IREP) §667 

TC 2?0i 5*8* 

9* TOW I X * 0, S89 

Dfl 9‘6l rv 1',WS " 56971 

961 TOW I X » TOWlX ♦ T0U<!> * EMTUX(I) 5691 

"TOWfiT* 'T0HIX~7 <FN5S * "EWT01 5W 

GO TO 98 §693 

97' TOW j X ■’ TOlT >5894 

TCM=0. 5*96 

OPTWsO. " ' ' ' “ ' §696 

9" !P(TWIXG)99.998.99 5697 

99 fPTPBP) 994, 9917996 §698 

991 TMM(X = 0. 6699 

' I F C TCW I X-T'W J XG > 996 ,998,998 ' - §7(16 

995^ N!N!S = NMS-1 57 01 

ENS=FMS-i ,7$ ' ” §70? 

WRITE nTP2.9983)ENSS,TWETA,TOMlx,TWIXx.r)PTM,TCM,PPWR §703 

IP(^K5)9981 ,9981 ,33 ~~ ‘ §704 ' 

994 TW1YX = (1 .-TWETA)*TOMIX+TMF.TA#(TC+VlN-«HFG/CL+(TJWTr )*CV/CD 5705 

I F ( ABS ( TM l XX-TM! XG 1 /TW ! x«- . 01 ) 998 , 996 , 996 §706 

996 T«FTA = THETA + ( TW I XG-TW I XX) / <T I WTC«CV/Cl-TW I XG+MFG** i k /CL^ §707 

WRI TE ( I TP 2 1 9983 )EnSS V fWETA , TOW f x , fWj XX . DPT* ,'TCW , PPWR §706 

GO TO 3 5 7rio 

998 WRITE ~ " ( ITP2',9983)E\ISS.THEf A,TOWlX,TWIXX,0PfM,fCW,ppwR 5710 

J9983 _ FORMAT( /nx4HMS.S10X5HTHETA10X5WTOMIX10X5WTWIXXll X450PTW12XTHTCM §7H 
9 "'lix'4wpPwR' /30X?( 1 0V5HDEG R ) 1?X3HP$ I IOxBhOFG ei.3y?WRP/7Fl 5 . 5 ) §71? 

9081 CONTINUE 5713 

GO TO ? 671 A 

fmo 


subroutine table §7i* 

TVTPEK5TBE CXC(9.3) .777(9,5) ,C(9) , z<9 ) 5716 

COWMCW C,7.Y1,Y?,V3. Y 4 .ITPl.ITP? 5717 

C CREATE RAPT ATOR INPUT TABLE 571 p 

c prograw constants - selection 5710 

OATA CCC.7ZZ/3*! .0, 3*0.0, 1 . ,2*0.0. 1 . I?5. , 5, , 75 , n , , 2*1 . , . 8? , I . . . ?§ , 572* 


9 *rv, lT 5 , 3 *‘.F 66 ,'i . .0 . , 1 . , 0 . . 3 , , 2 . . 3 * . 707 , 1 . , 0 , , 1 . , n . , 4 . , 1 . , , 5 , * . , 1 . 57 ?? 
3 , 0 , , l ._, 4 . , 1 , , 1 ,/ 5723 

CCC < 4 , 1 ) s 0,5 §724 

RF AO ( I TP1 , 1 002 ) T.J.K.L 57?5 

100?" FORMAT MM ) 577K~ 

WRITE ( I TP? , 10 n 5 ) I . J.K , L 6727 

17105 FARM A T ( 1 8 FTWT T* 7741 1 /T " ~ 57-2« 

_O0_ j II = 1,9 57?Q 

‘ C < 1 1 j ' = CCCUl , 1 ) " " ‘ ' ' 573""' 

1 7(H) = 7ZZ ( 1 1 , J ) 57ji 

GO TC <16, 15,16,16,15). J 673? 

1§ 7(3) = CM) 5733 

16 comt t N'LE 57y4~ 

IF( K-1 ) ? , 2 , 3 57 35 

2 VI "s 1 . ' 6736 


FIGURE D-10 (cont'd) 
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Y2 s n, 

CO TO T 

3 Y1 = 0. 

v? 2 i * 

4 !F(I. - 1) 5 , 5, 6 

5 Y3 = 1 , 

Y4 = 0 , 

PE TURK 

6 Y3 = n. 

Y 4 = 1 . 

RETURN! 

EMD 

SUBROU7 INF CROUT(M) 

0 f MPKSl ON H( 33 lil! 34, 33 > . SPACED 24 ) 
COMMON! SPACE, A,H, J55, I JS 
VI sN+1 

00 200 K = 1 , V 
Ki=K+l 
J = K 

no inn i=k,n 
suMsn.o 

TF( J-1 Mr , 13. 10 • 

10 IF< 1-1 >13,13,11 

11 trn-jyi7Vi7,?i 

17 ISMVsI-1 

no i2 issi/ismx 

1? StlMsSllM + A( is, ! ) • A ( I , IS) 

T3 a ( j', n»i( j. n-snM - 

no tc 100 

21 JSMYsJ-1 

on 22 JSsl.JS^X 

22 snM=sup+A( js, n*Af j, jsy 

23 A( J, J ) • A( J , I > -SUM 

* "rmr tonttwue ' ~ 

I=K 

no 200 J*Ki,Mi' 

SIIMrn.O 

1F( T-l >233,233, 231 

231 TSMysI-i 

no 232 T? = 1 « 1 5 M V 

232 SMM = SUM + A( IS, I ) * A f J, IS) 

233 tP( A(I . T>)350,351,350 
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35i A(j,n*o.n 

0,0 TC TP(V~~ ' - - " 

35n A< J. I >*< A< J. I )-SU^ )*( 1 , /A< I . I ) > 

2(1f> “COKITIMLE 

C HAVF COMPLETED FINDIMC the DERIVED matrix 
00~ 300" I S*1 * N 
SUMsO.O 
JRiN-TS+T 
■ JSlsJS+1 

DO 280 KSsjRl.N " 

IF(KS-M280,280i300 
28 0 RMMsSUM+AtKR, JS.) *W( KS ) 

300 W( JR)=AIM , JSJ-SU* 

” J55= J55+1 

i ► i 20-J55 5 302,302,303 
302”'! JS*2 " 

303 QFTUH* 

EMD 


577« 
5779 
57 «n 
5751 * 

578? 
5?8T 

5784 

5785 
5785 
575 7 
5788 

' 57 8 9 
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